/ MacFormat 1995 August / macformat-027.iso / mac / Portables / Softline Newton / Demo ƒ / nsbasic / NS BASIC Demo ƒ / Examples.txt

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 45 78 61 6d 70 6c | 65 73 2e 74 78 74 00 00 |..Exampl|es.txt..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 74 74 78 | 74 01 00 00 00 00 00 00 |.TEXTttx|t.......|
|00000050| 00 00 00 00 00 6e 70 00 | 00 01 4c ab c9 c3 08 ab |.....np.|..L.....|
|00000060| c9 c3 08 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 5a 63 00 00 |........|....Zc..|
|00000080| 31 30 20 52 45 4d 20 41 | 42 53 20 45 78 61 6d 70 |10 REM A|BS Examp|
|00000090| 00 00 00 00 00 00 6e 60 | 4d 20 54 68 69 73 20 70 |......n`|M This p|
|000000a0| 72 6f 67 72 61 6d 20 72 | 65 74 75 72 6e 73 20 74 |rogram r|eturns t|
|000000b0| 68 65 20 70 6f 73 69 74 | 69 76 65 20 76 61 6c 75 |he posit|ive valu|
|000000c0| 65 20 6f 66 20 61 6e 79 | 20 6e 75 6d 62 65 72 20 |e of any| number |
|000000d0| 49 4e 50 55 54 20 74 6f | 20 69 74 2e 0d 33 30 20 |INPUT to| it..30 |
|000000e0| 50 52 49 4e 54 20 22 50 | 6c 65 61 73 65 20 65 6e |PRINT "P|lease en|
|000000f0| 74 65 72 20 61 6e 79 20 | 6e 75 6d 62 65 72 3a 22 |ter any |number:"|
|00000100| 0d 34 30 20 49 4e 50 55 | 54 20 4e 75 6d 62 65 72 |.40 INPU|T Number|
|00000110| 0d 35 30 20 50 52 49 4e | 54 20 22 54 68 65 20 61 |.50 PRIN|T "The a|
|00000120| 62 73 6f 6c 75 74 65 20 | 76 61 6c 75 65 20 6f 66 |bsolute |value of|
|00000130| 20 74 68 65 20 6e 75 6d | 62 65 72 20 79 6f 75 20 | the num|ber you |
|00000140| 65 6e 74 65 72 65 64 20 | 69 73 20 3d 20 22 20 3b |entered |is = " ;|
|00000150| 20 41 42 53 28 4e 75 6d | 62 65 72 29 0d 0d 0d 31 | ABS(Num|ber)...1|
|00000160| 30 20 52 45 4d 20 41 44 | 44 41 52 52 41 59 53 4c |0 REM AD|DARRAYSL|
|00000170| 4f 54 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 61 20 |OT Examp|le.20 a |
|00000180| 3d 20 5b 31 2c 32 2c 33 | 5d 0d 33 30 20 50 52 49 |= [1,2,3|].30 PRI|
|00000190| 4e 54 20 22 50 6c 65 61 | 73 65 20 65 6e 74 65 72 |NT "Plea|se enter|
|000001a0| 20 61 6e 79 20 6e 75 6d | 62 65 72 3a 22 0d 34 30 | any num|ber:".40|
|000001b0| 20 49 4e 50 55 54 20 4e | 75 6d 62 65 72 0d 35 30 | INPUT N|umber.50|
|000001c0| 20 75 6e 55 73 65 64 20 | 3d 20 41 44 44 41 52 52 | unUsed |= ADDARR|
|000001d0| 41 59 53 4c 4f 54 28 61 | 2c 20 4e 75 6d 62 65 72 |AYSLOT(a|, Number|
|000001e0| 29 0d 36 30 20 50 52 49 | 4e 54 20 22 54 68 65 20 |).60 PRI|NT "The |
|000001f0| 6e 65 77 20 61 72 72 61 | 79 20 69 73 20 20 3d 20 |new arra|y is  = |
|00000200| 22 20 3b 20 61 0d 0d 31 | 30 20 52 45 4d 20 41 4e |" ; a..1|0 REM AN|
|00000210| 4e 55 49 54 59 20 45 78 | 61 6d 70 6c 65 0d 32 30 |NUITY Ex|ample.20|
|00000220| 20 52 45 4d 20 43 6f 6d | 70 75 74 65 20 61 6e 6e | REM Com|pute ann|
|00000230| 75 69 74 79 20 6f 6e 20 | 6d 6f 6e 74 68 6c 79 20 |uity on |monthly |
|00000240| 62 61 73 69 73 2e 0d 33 | 30 20 50 52 49 4e 54 20 |basis..3|0 PRINT |
|00000250| 22 41 6e 6e 75 61 6c 20 | 49 6e 74 65 72 65 73 74 |"Annual |Interest|
|00000260| 20 52 61 74 65 3a 22 0d | 34 30 20 49 4e 50 55 54 | Rate:".|40 INPUT|
|00000270| 20 52 61 74 65 0d 35 30 | 20 50 52 49 4e 54 20 22 | Rate.50| PRINT "|
|00000280| 4e 75 6d 62 65 72 20 6f | 66 20 6d 6f 6e 74 68 73 |Number o|f months|
|00000290| 3a 22 0d 36 30 20 49 4e | 50 55 54 20 4e 75 6d 4d |:".60 IN|PUT NumM|
|000002a0| 6f 6e 74 68 73 0d 37 30 | 20 50 52 49 4e 54 20 22 |onths.70| PRINT "|
|000002b0| 43 6f 73 74 20 6f 66 20 | 74 68 65 20 69 74 65 6d |Cost of |the item|
|000002c0| 3a 22 0d 38 30 20 49 4e | 50 55 54 20 43 6f 73 74 |:".80 IN|PUT Cost|
|000002d0| 0d 39 30 20 50 52 49 4e | 54 20 22 54 68 65 20 63 |.90 PRIN|T "The c|
|000002e0| 6f 73 74 20 66 6f 72 20 | 61 6c 6c 20 70 61 79 6d |ost for |all paym|
|000002f0| 65 6e 74 73 20 69 73 20 | 24 22 3b 20 41 4e 4e 55 |ents is |$"; ANNU|
|00000300| 49 54 59 28 28 52 61 74 | 65 20 2a 20 30 2e 30 31 |ITY((Rat|e * 0.01|
|00000310| 29 2f 31 32 2c 20 4e 75 | 6d 4d 6f 6e 74 68 73 29 |)/12, Nu|mMonths)|
|00000320| 20 2a 20 43 6f 73 74 0d | 0d 31 30 20 52 45 4d 20 | * Cost.|.10 REM |
|00000330| 41 72 72 61 79 20 45 78 | 61 6d 70 6c 65 0d 32 30 |Array Ex|ample.20|
|00000340| 20 44 49 4d 20 4e 61 6d | 65 73 5b 33 5d 0d 33 30 | DIM Nam|es[3].30|
|00000350| 20 4e 61 6d 65 73 5b 30 | 5d 20 3d 20 22 50 65 74 | Names[0|] = "Pet|
|00000360| 65 72 22 0d 34 30 20 4e | 61 6d 65 73 5b 31 5d 20 |er".40 N|ames[1] |
|00000370| 3d 20 22 50 61 75 6c 22 | 0d 35 30 20 4e 61 6d 65 |= "Paul"|.50 Name|
|00000380| 73 5b 32 5d 20 3d 20 22 | 4d 61 72 79 22 0d 36 30 |s[2] = "|Mary".60|
|00000390| 20 50 52 49 4e 54 20 22 | 43 6f 6e 74 65 6e 74 73 | PRINT "|Contents|
|000003a0| 20 6f 66 20 74 68 65 20 | 4e 61 6d 65 73 20 41 72 | of the |Names Ar|
|000003b0| 72 61 79 3a 22 0d 37 30 | 20 46 4f 52 20 69 20 3d |ray:".70| FOR i =|
|000003c0| 20 30 20 54 4f 20 32 0d | 38 30 20 50 52 49 4e 54 | 0 TO 2.|80 PRINT|
|000003d0| 20 4e 61 6d 65 73 5b 69 | 5d 0d 39 30 20 4e 45 58 | Names[i|].90 NEX|
|000003e0| 54 20 69 0d 0d 0d 31 30 | 20 52 45 4d 20 41 52 52 |T i...10| REM ARR|
|000003f0| 41 59 52 45 4d 4f 56 45 | 43 4f 55 4e 54 20 45 78 |AYREMOVE|COUNT Ex|
|00000400| 61 6d 70 6c 65 0d 32 30 | 20 61 20 3d 20 5b 31 2c |ample.20| a = [1,|
|00000410| 32 2c 33 2c 34 2c 35 2c | 36 2c 37 5d 0d 33 30 20 |2,3,4,5,|6,7].30 |
|00000420| 75 6e 55 73 65 64 20 3d | 20 41 44 44 52 45 4d 4f |unUsed =| ADDREMO|
|00000430| 56 45 43 4f 55 4e 54 28 | 61 2c 20 32 2c 33 29 0d |VECOUNT(|a, 2,3).|
|00000440| 34 30 20 50 52 49 4e 54 | 20 22 54 68 65 20 6e 65 |40 PRINT| "The ne|
|00000450| 77 20 61 72 72 61 79 20 | 69 73 20 20 3d 20 22 20 |w array |is  = " |
|00000460| 3b 20 61 0d 0d 0d 31 30 | 20 52 45 4d 20 41 52 52 |; a...10| REM ARR|
|00000470| 41 59 54 4f 50 4f 49 4e | 54 53 20 45 78 61 6d 70 |AYTOPOIN|TS Examp|
|00000480| 6c 65 0d 32 30 20 73 68 | 61 70 65 41 72 72 61 79 |le.20 sh|apeArray|
|00000490| 20 3d 20 5b 39 2c 34 2c | 32 35 2c 31 30 2c 31 30 | = [9,4,|25,10,10|
|000004a0| 2c 34 30 2c 34 30 2c 34 | 30 2c 32 35 2c 31 30 5d |,40,40,4|0,25,10]|
|000004b0| 0d 33 30 20 70 6f 69 6e | 74 73 20 3d 20 41 52 52 |.30 poin|ts = ARR|
|000004c0| 41 59 54 4f 50 4f 49 4e | 54 53 28 73 68 61 70 65 |AYTOPOIN|TS(shape|
|000004d0| 41 72 72 61 79 29 0d 34 | 30 20 73 68 61 70 65 20 |Array).4|0 shape |
|000004e0| 3d 20 4d 41 4b 45 53 48 | 41 50 45 28 70 6f 69 6e |= MAKESH|APE(poin|
|000004f0| 74 73 29 0d 35 30 20 77 | 73 70 65 63 20 3d 20 7b |ts).50 w|spec = {|
|00000500| 76 69 65 77 42 6f 75 6e | 64 73 3a 7b 74 6f 70 3a |viewBoun|ds:{top:|
|00000510| 31 30 2c 20 6c 65 66 74 | 3a 31 30 2c 20 62 6f 74 |10, left|:10, bot|
|00000520| 74 6f 6d 3a 32 30 30 2c | 20 72 69 67 68 74 3a 32 |tom:200,| right:2|
|00000530| 30 30 7d 7d 0d 36 30 20 | 57 49 4e 44 4f 57 20 77 |00}}.60 |WINDOW w|
|00000540| 31 2c 20 77 73 70 65 63 | 0d 37 30 20 53 48 4f 57 |1, wspec|.70 SHOW|
|00000550| 20 77 31 0d 38 30 20 57 | 44 52 41 57 20 77 31 2c | w1.80 W|DRAW w1,|
|00000560| 20 73 68 61 70 65 0d 0d | 0d 35 20 52 45 4d 20 42 | shape..|.5 REM B|
|00000570| 45 45 50 20 45 78 61 6d | 70 6c 65 0d 31 30 20 46 |EEP Exam|ple.10 F|
|00000580| 4f 52 20 69 20 3d 20 30 | 20 54 4f 20 31 33 0d 32 |OR i = 0| TO 13.2|
|00000590| 30 20 42 45 45 50 20 69 | 0d 33 30 20 57 41 49 54 |0 BEEP i|.30 WAIT|
|000005a0| 20 31 0d 34 30 20 4e 45 | 58 54 20 69 0d 0d 0d 35 | 1.40 NE|XT i...5|
|000005b0| 20 52 45 4d 20 42 45 47 | 49 4e 53 57 49 54 48 20 | REM BEG|INSWITH |
|000005c0| 45 78 61 6d 70 6c 65 0d | 31 30 20 74 61 72 67 65 |Example.|10 targe|
|000005d0| 74 20 3d 20 22 59 45 53 | 20 6f 72 20 4e 4f 22 0d |t = "YES| or NO".|
|000005e0| 32 30 20 49 46 20 42 45 | 47 49 4e 53 57 49 54 48 |20 IF BE|GINSWITH|
|000005f0| 28 74 61 72 67 65 74 2c | 22 79 65 73 22 29 20 54 |(target,|"yes") T|
|00000600| 48 45 4e 20 50 52 49 4e | 54 20 22 49 74 20 73 74 |HEN PRIN|T "It st|
|00000610| 61 72 74 73 20 77 69 74 | 68 20 79 65 73 22 0d 33 |arts wit|h yes".3|
|00000620| 30 20 49 46 20 42 45 47 | 49 4e 53 57 49 54 48 28 |0 IF BEG|INSWITH(|
|00000630| 74 61 72 67 65 74 2c 22 | 59 45 53 20 4f 52 22 29 |target,"|YES OR")|
|00000640| 20 54 48 45 4e 20 50 52 | 49 4e 54 20 22 49 74 20 | THEN PR|INT "It |
|00000650| 73 74 61 72 74 73 20 77 | 69 74 68 20 59 45 53 20 |starts w|ith YES |
|00000660| 4f 52 22 0d 34 30 20 49 | 46 20 42 45 47 49 4e 53 |OR".40 I|F BEGINS|
|00000670| 57 49 54 48 28 74 61 72 | 67 65 74 2c 22 4e 6f 20 |WITH(tar|get,"No |
|00000680| 4f 52 22 29 20 54 48 45 | 4e 20 50 52 49 4e 54 20 |OR") THE|N PRINT |
|00000690| 22 49 74 20 73 74 61 72 | 74 73 20 77 69 74 68 20 |"It star|ts with |
|000006a0| 4e 6f 20 4f 52 22 0d 0d | 0d 31 30 20 52 45 4d 20 |No OR"..|.10 REM |
|000006b0| 42 75 74 74 6f 6e 20 45 | 78 61 6d 70 6c 65 0d 32 |Button E|xample.2|
|000006c0| 30 20 66 3d 7b 67 6f 74 | 6f 3a 30 31 34 30 7d 20 |0 f={got|o:0140} |
|000006d0| 2f 2f 20 77 68 65 6e 20 | 74 61 70 70 65 64 0d 33 |// when |tapped.3|
|000006e0| 30 20 66 2e 76 69 65 77 | 42 6f 75 6e 64 73 3d 7b |0 f.view|Bounds={|
|000006f0| 6c 65 66 74 3a 31 30 30 | 2c 20 72 69 67 68 74 3a |left:100|, right:|
|00000700| 31 38 30 2c 20 74 6f 70 | 3a 20 31 30 30 2c 20 62 |180, top|: 100, b|
|00000710| 6f 74 74 6f 6d 3a 20 31 | 32 30 7d 0d 34 30 20 62 |ottom: 1|20}.40 b|
|00000720| 75 74 74 6f 6e 4c 61 62 | 65 6c 73 20 3d 20 5b 22 |uttonLab|els = ["|
|00000730| 48 65 6c 6c 6f 22 2c 20 | 22 57 6f 72 6c 64 22 5d |Hello", |"World"]|
|00000740| 0d 35 30 20 74 61 70 73 | 20 3d 20 30 20 2f 2f 20 |.50 taps| = 0 // |
|00000750| 6e 6f 20 74 61 70 73 20 | 79 65 74 0d 36 30 20 43 |no taps |yet.60 C|
|00000760| 4c 53 0d 37 30 20 57 49 | 4e 44 4f 57 20 77 31 2c |LS.70 WI|NDOW w1,|
|00000770| 66 0d 38 30 20 53 48 4f | 57 20 77 31 0d 39 30 20 |f.80 SHO|W w1.90 |
|00000780| 57 50 52 49 4e 54 20 77 | 31 2c 20 62 75 74 74 6f |WPRINT w|1, butto|
|00000790| 6e 4c 61 62 65 6c 73 5b | 74 61 70 73 20 6d 6f 64 |nLabels[|taps mod|
|000007a0| 20 32 5d 0d 31 30 30 20 | 57 41 49 54 20 31 30 30 | 2].100 |WAIT 100|
|000007b0| 30 0d 31 31 30 20 47 4f | 54 4f 20 30 31 30 30 20 |0.110 GO|TO 0100 |
|000007c0| 2f 2f 20 73 70 69 6e 20 | 69 6e 20 61 20 6c 6f 6f |// spin |in a loo|
|000007d0| 70 0d 31 32 30 20 48 49 | 44 45 20 77 31 0d 31 33 |p.120 HI|DE w1.13|
|000007e0| 30 20 45 4e 44 0d 31 34 | 30 20 52 45 4d 20 74 6f |0 END.14|0 REM to|
|000007f0| 67 67 6c 65 20 62 75 74 | 74 6f 6e 0d 31 35 30 20 |ggle but|ton.150 |
|00000800| 74 61 70 73 3d 74 61 70 | 73 2b 31 0d 31 36 30 20 |taps=tap|s+1.160 |
|00000810| 57 50 52 49 4e 54 20 77 | 31 2c 20 62 75 74 74 6f |WPRINT w|1, butto|
|00000820| 6e 4c 61 62 65 6c 73 5b | 74 61 70 73 20 6d 6f 64 |nLabels[|taps mod|
|00000830| 20 32 5d 0d 31 37 30 20 | 49 46 20 74 61 70 73 20 | 2].170 |IF taps |
|00000840| 3c 20 34 20 54 48 45 4e | 20 47 4f 54 4f 20 30 31 |< 4 THEN| GOTO 01|
|00000850| 30 30 20 45 4c 53 45 20 | 47 4f 54 4f 20 30 31 32 |00 ELSE |GOTO 012|
|00000860| 30 0d 0d 0d 31 30 20 52 | 45 4d 20 42 75 74 74 6f |0...10 R|EM Butto|
|00000870| 6e 2f 48 57 49 4e 50 55 | 54 20 45 78 61 6d 70 6c |n/HWINPU|T Exampl|
|00000880| 65 0d 32 30 20 66 3d 7b | 67 6f 74 6f 3a 32 34 30 |e.20 f={|goto:240|
|00000890| 7d 20 2f 2f 20 77 68 65 | 6e 20 74 61 70 70 65 64 |} // whe|n tapped|
|000008a0| 0d 33 30 20 66 2e 76 69 | 65 77 42 6f 75 6e 64 73 |.30 f.vi|ewBounds|
|000008b0| 3d 7b 6c 65 66 74 3a 35 | 30 2c 20 72 69 67 68 74 |={left:5|0, right|
|000008c0| 3a 32 30 30 2c 20 74 6f | 70 3a 20 31 30 30 2c 20 |:200, to|p: 100, |
|000008d0| 62 6f 74 74 6f 6d 3a 20 | 31 32 30 7d 0d 34 30 20 |bottom: |120}.40 |
|000008e0| 62 75 74 74 6f 6e 4c 61 | 62 65 6c 20 3d 20 22 59 |buttonLa|bel = "Y|
|000008f0| 6f 75 72 20 4e 61 6d 65 | 3a 20 22 0d 35 30 20 6e |our Name|: ".50 n|
|00000900| 61 6d 65 56 61 6c 75 65 | 20 3d 20 22 22 20 2f 2f |ameValue| = "" //|
|00000910| 20 6e 6f 20 6e 61 6d 65 | 20 65 6e 74 65 72 65 64 | no name| entered|
|00000920| 0d 36 30 20 63 6c 73 0d | 37 30 20 77 69 6e 64 6f |.60 cls.|70 windo|
|00000930| 77 20 77 31 2c 66 0d 38 | 30 20 67 3d 7b 67 6f 74 |w w1,f.8|0 g={got|
|00000940| 6f 3a 30 32 30 30 7d 20 | 2f 2f 20 65 78 69 74 20 |o:0200} |// exit |
|00000950| 77 68 65 6e 20 74 61 70 | 70 65 64 0d 39 30 20 67 |when tap|ped.90 g|
|00000960| 2e 76 69 65 77 62 6f 75 | 6e 64 73 3d 7b 6c 65 66 |.viewbou|nds={lef|
|00000970| 74 3a 31 30 2c 20 72 69 | 67 68 74 3a 34 35 2c 20 |t:10, ri|ght:45, |
|00000980| 74 6f 70 3a 20 31 30 30 | 2c 20 62 6f 74 74 6f 6d |top: 100|, bottom|
|00000990| 3a 20 31 32 30 7d 0d 31 | 30 30 20 67 2e 76 69 65 |: 120}.1|00 g.vie|
|000009a0| 77 46 6f 6e 74 3d 7b 66 | 61 6d 69 6c 79 3a 20 27 |wFont={f|amily: '|
|000009b0| 65 73 70 79 2c 20 66 61 | 63 65 3a 20 30 2c 20 73 |espy, fa|ce: 0, s|
|000009c0| 69 7a 65 3a 31 30 7d 0d | 31 31 30 20 67 2e 76 69 |ize:10}.|110 g.vi|
|000009d0| 65 77 4a 75 73 74 69 66 | 79 3d 32 20 2f 2f 20 63 |ewJustif|y=2 // c|
|000009e0| 65 6e 74 65 72 65 64 0d | 31 32 30 20 67 2e 76 69 |entered.|120 g.vi|
|000009f0| 65 77 46 6f 72 6d 61 74 | 20 3d 20 36 2a 76 66 52 |ewFormat| = 6*vfR|
|00000a00| 6f 75 6e 64 20 2b 32 2a | 76 66 50 65 6e 2b 76 66 |ound +2*|vfPen+vf|
|00000a10| 46 72 61 6d 65 42 6c 61 | 63 6b 2b 76 66 46 69 6c |FrameBla|ck+vfFil|
|00000a20| 6c 57 68 69 74 65 0d 31 | 33 30 20 77 69 6e 64 6f |lWhite.1|30 windo|
|00000a30| 77 20 77 32 2c 67 0d 31 | 34 30 20 73 68 6f 77 20 |w w2,g.1|40 show |
|00000a40| 77 31 2c 20 77 32 0d 31 | 36 30 20 77 70 72 69 6e |w1, w2.1|60 wprin|
|00000a50| 74 20 77 32 2c 20 22 44 | 6f 6e 65 22 0d 31 37 30 |t w2, "D|one".170|
|00000a60| 20 77 70 72 69 6e 74 20 | 77 31 2c 20 62 75 74 74 | wprint |w1, butt|
|00000a70| 6f 6e 4c 61 62 65 6c 20 | 26 20 6e 61 6d 65 56 61 |onLabel |& nameVa|
|00000a80| 6c 75 65 0d 31 38 30 20 | 77 61 69 74 20 31 30 30 |lue.180 |wait 100|
|00000a90| 30 0d 31 39 30 20 47 4f | 54 4f 20 31 38 30 0d 32 |0.190 GO|TO 180.2|
|00000aa0| 30 30 20 68 69 64 65 20 | 77 31 2c 20 77 32 0d 32 |00 hide |w1, w2.2|
|00000ab0| 32 30 20 65 6e 64 0d 32 | 33 30 20 72 65 6d 20 75 |20 end.2|30 rem u|
|00000ac0| 73 65 20 48 57 49 4e 50 | 55 54 0d 32 34 30 20 62 |se HWINP|UT.240 b|
|00000ad0| 65 65 70 20 35 20 2f 2f | 20 64 72 61 77 65 72 20 |eep 5 //| drawer |
|00000ae0| 6f 70 65 6e 20 73 6f 75 | 6e 64 0d 32 35 30 20 69 |open sou|nd.250 i|
|00000af0| 66 20 73 74 72 6c 65 6e | 28 6e 61 6d 65 56 61 6c |f strlen|(nameVal|
|00000b00| 75 65 29 20 3e 20 30 20 | 74 68 65 6e 20 63 75 72 |ue) > 0 |then cur|
|00000b10| 72 4e 61 6d 65 20 3d 20 | 5b 6e 61 6d 65 56 61 6c |rName = |[nameVal|
|00000b20| 75 65 5d 20 65 6c 73 65 | 20 63 75 72 72 4e 61 6d |ue] else| currNam|
|00000b30| 65 20 3d 20 6e 69 6c 0d | 32 36 30 20 48 57 49 4e |e = nil.|260 HWIN|
|00000b40| 50 55 54 20 6e 61 6d 65 | 56 61 6c 75 65 2c 20 62 |PUT name|Value, b|
|00000b50| 75 74 74 6f 6e 4c 61 62 | 65 6c 2c 20 63 75 72 72 |uttonLab|el, curr|
|00000b60| 4e 61 6d 65 0d 32 37 30 | 20 77 70 72 69 6e 74 20 |Name.270| wprint |
|00000b70| 77 31 2c 20 62 75 74 74 | 6f 6e 4c 61 62 65 6c 20 |w1, butt|onLabel |
|00000b80| 26 20 6e 61 6d 65 56 61 | 6c 75 65 0d 32 38 30 20 |& nameVa|lue.280 |
|00000b90| 47 4f 54 4f 20 31 38 30 | 0d 0d 0d 31 30 20 52 45 |GOTO 180|...10 RE|
|00000ba0| 4d 20 42 59 45 20 45 78 | 61 6d 70 6c 65 0d 32 30 |M BYE Ex|ample.20|
|00000bb0| 20 50 52 49 4e 54 20 22 | 51 75 69 74 74 69 6e 67 | PRINT "|Quitting|
|00000bc0| 20 4e 53 20 42 41 53 49 | 43 22 0d 33 30 20 42 59 | NS BASI|C".30 BY|
|00000bd0| 45 0d 0d 0d 31 30 20 52 | 45 4d 20 43 45 49 4c 49 |E...10 R|EM CEILI|
|00000be0| 4e 47 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 50 52 |NG Examp|le.20 PR|
|00000bf0| 49 4e 54 20 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |INT "Ple|ase ente|
|00000c00| 72 20 61 20 6e 75 6d 62 | 65 72 3a 22 0d 33 30 20 |r a numb|er:".30 |
|00000c10| 49 4e 50 55 54 20 4e 75 | 6d 62 65 72 0d 34 30 20 |INPUT Nu|mber.40 |
|00000c20| 50 52 49 4e 54 20 22 4e | 65 78 74 20 6c 61 72 67 |PRINT "N|ext larg|
|00000c30| 65 73 74 20 69 6e 74 65 | 67 65 72 20 69 73 2e 2e |est inte|ger is..|
|00000c40| 2e 22 20 3b 20 43 45 49 | 4c 49 4e 47 28 4e 75 6d |." ; CEI|LING(Num|
|00000c50| 62 65 72 29 0d 0d 0d 31 | 30 20 52 45 4d 20 43 48 |ber)...1|0 REM CH|
|00000c60| 45 43 4b 42 4f 58 20 45 | 78 61 6d 70 6c 65 0d 32 |ECKBOX E|xample.2|
|00000c70| 30 20 77 31 53 70 65 63 | 20 3d 20 7b 7d 0d 33 30 |0 w1Spec| = {}.30|
|00000c80| 20 57 49 4e 44 4f 57 20 | 77 31 2c 20 77 31 53 70 | WINDOW |w1, w1Sp|
|00000c90| 65 63 2c 20 22 43 48 45 | 43 4b 42 4f 58 22 0d 34 |ec, "CHE|CKBOX".4|
|00000ca0| 30 20 77 32 53 70 65 63 | 20 3d 20 7b 76 69 65 77 |0 w2Spec| = {view|
|00000cb0| 56 61 6c 75 65 3a 20 74 | 72 75 65 7d 0d 35 30 20 |Value: t|rue}.50 |
|00000cc0| 57 49 4e 44 4f 57 20 77 | 32 2c 20 77 32 53 70 65 |WINDOW w|2, w2Spe|
|00000cd0| 63 2c 20 22 52 43 48 45 | 43 4b 42 4f 58 22 0d 36 |c, "RCHE|CKBOX".6|
|00000ce0| 30 20 53 48 4f 57 20 77 | 31 2c 20 77 32 0d 0d 0d |0 SHOW w|1, w2...|
|00000cf0| 31 30 20 52 45 4d 20 43 | 48 52 20 45 78 61 6d 70 |10 REM C|HR Examp|
|00000d00| 6c 65 0d 32 30 20 52 45 | 4d 20 54 68 69 73 20 64 |le.20 RE|M This d|
|00000d10| 65 6d 6f 20 61 73 6b 73 | 20 74 68 65 20 75 73 65 |emo asks| the use|
|00000d20| 72 20 66 6f 72 20 61 20 | 6e 75 6d 62 65 72 20 61 |r for a |number a|
|00000d30| 6e 64 20 74 68 65 6e 20 | 64 69 73 70 6c 61 79 73 |nd then |displays|
|00000d40| 20 74 68 65 20 41 53 43 | 49 49 20 63 68 61 72 61 | the ASC|II chara|
|00000d50| 63 74 65 72 20 65 71 75 | 69 76 61 6c 65 6e 74 20 |cter equ|ivalent |
|00000d60| 6f 66 20 69 74 2e 0d 33 | 30 20 50 52 49 4e 54 20 |of it..3|0 PRINT |
|00000d70| 22 50 6c 65 61 73 65 20 | 65 6e 74 65 72 20 61 20 |"Please |enter a |
|00000d80| 6e 75 6d 62 65 72 20 62 | 65 74 77 65 65 6e 20 31 |number b|etween 1|
|00000d90| 20 61 6e 64 20 32 35 36 | 22 0d 34 30 20 49 4e 50 | and 256|".40 INP|
|00000da0| 55 54 20 4e 75 6d 62 65 | 72 0d 35 30 20 50 52 49 |UT Numbe|r.50 PRI|
|00000db0| 4e 54 20 22 54 68 65 20 | 43 68 61 72 61 63 74 65 |NT "The |Characte|
|00000dc0| 72 20 45 71 75 69 76 61 | 6c 65 6e 74 20 6f 66 20 |r Equiva|lent of |
|00000dd0| 22 20 3b 20 4e 75 6d 62 | 65 72 20 3b 20 22 20 69 |" ; Numb|er ; " i|
|00000de0| 73 20 22 20 3b 20 43 48 | 52 28 4e 75 6d 62 65 72 |s " ; CH|R(Number|
|00000df0| 29 0d 0d 0d 31 30 20 52 | 45 4d 20 43 4c 41 53 53 |)...10 R|EM CLASS|
|00000e00| 4f 46 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 61 20 |OF Examp|le.20 a |
|00000e10| 3d 20 35 0d 33 30 20 50 | 52 49 4e 54 20 43 4c 41 |= 5.30 P|RINT CLA|
|00000e20| 53 53 4f 46 28 61 29 0d | 34 30 20 61 20 3d 20 22 |SSOF(a).|40 a = "|
|00000e30| 48 65 6c 6c 6f 22 0d 35 | 30 20 50 52 49 4e 54 20 |Hello".5|0 PRINT |
|00000e40| 43 4c 41 53 53 4f 46 28 | 61 29 0d 0d 0d 31 30 20 |CLASSOF(|a)...10 |
|00000e50| 52 45 4d 20 43 4f 4d 50 | 4f 55 4e 44 20 45 78 61 |REM COMP|OUND Exa|
|00000e60| 6d 70 6c 65 2e 20 54 68 | 69 73 20 65 78 61 6d 70 |mple. Th|is examp|
|00000e70| 6c 65 20 61 73 73 75 6d | 65 73 20 74 68 61 74 20 |le assum|es that |
|00000e80| 69 6e 74 65 72 65 73 74 | 20 69 73 20 62 65 69 6e |interest| is bein|
|00000e90| 67 20 63 61 6c 63 75 6c | 61 74 65 64 20 6d 6f 6e |g calcul|ated mon|
|00000ea0| 74 68 6c 79 2e 0d 32 30 | 20 50 52 49 4e 54 20 22 |thly..20| PRINT "|
|00000eb0| 50 6c 65 61 73 65 20 65 | 6e 74 65 72 20 74 68 65 |Please e|nter the|
|00000ec0| 20 49 6e 74 65 72 65 73 | 74 20 72 61 74 65 20 70 | Interes|t rate p|
|00000ed0| 65 72 20 79 65 61 72 3a | 22 0d 33 30 20 49 4e 50 |er year:|".30 INP|
|00000ee0| 55 54 20 52 61 74 65 0d | 34 30 20 50 52 49 4e 54 |UT Rate.|40 PRINT|
|00000ef0| 20 22 50 6c 65 61 73 65 | 20 65 6e 74 65 72 20 74 | "Please| enter t|
|00000f00| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6d 6f 6e |he numbe|r of mon|
|00000f10| 74 68 73 20 79 6f 75 20 | 77 69 73 68 20 69 6e 74 |ths you |wish int|
|00000f20| 65 72 65 73 74 20 74 6f | 20 62 65 20 63 61 6c 63 |erest to| be calc|
|00000f30| 75 6c 61 74 65 64 20 66 | 6f 72 3a 22 0d 35 30 20 |ulated f|or:".50 |
|00000f40| 49 4e 50 55 54 20 50 65 | 72 69 6f 64 0d 36 30 20 |INPUT Pe|riod.60 |
|00000f50| 50 52 49 4e 54 20 22 54 | 68 65 20 70 65 72 63 65 |PRINT "T|he perce|
|00000f60| 6e 74 61 67 65 20 67 61 | 69 6e 20 69 73 20 22 20 |ntage ga|in is " |
|00000f70| 3b 20 43 4f 4d 50 4f 55 | 4e 44 28 28 52 61 74 65 |; COMPOU|ND((Rate|
|00000f80| 2a 30 2e 30 31 2f 31 32 | 29 2c 20 50 65 72 69 6f |*0.01/12|), Perio|
|00000f90| 64 29 2a 20 31 30 30 20 | 3b 20 22 25 22 0d 0d 0d |d)* 100 |; "%"...|
|00000fa0| 31 30 20 52 45 4d 20 43 | 4f 4e 20 45 78 61 6d 70 |10 REM C|ON Examp|
|00000fb0| 6c 65 0d 32 30 20 50 52 | 49 4e 54 20 22 42 65 66 |le.20 PR|INT "Bef|
|00000fc0| 6f 72 65 20 53 74 6f 70 | 22 0d 33 30 20 53 54 4f |ore Stop|".30 STO|
|00000fd0| 50 0d 34 30 20 50 52 49 | 4e 54 20 22 41 66 74 65 |P.40 PRI|NT "Afte|
|00000fe0| 72 20 53 74 6f 70 22 0d | 0d 0d 31 30 20 52 45 4d |r Stop".|..10 REM|
|00000ff0| 20 43 4f 53 20 45 78 61 | 6d 70 6c 65 0d 32 30 20 | COS Exa|mple.20 |
|00001000| 50 52 49 4e 54 20 22 50 | 6c 65 61 73 65 20 65 6e |PRINT "P|lease en|
|00001010| 74 65 72 20 61 6e 20 61 | 6e 67 6c 65 3a 22 0d 33 |ter an a|ngle:".3|
|00001020| 30 20 49 4e 50 55 54 20 | 41 6e 67 6c 65 0d 34 30 |0 INPUT |Angle.40|
|00001030| 20 50 52 49 4e 54 20 22 | 54 68 65 20 43 6f 73 69 | PRINT "|The Cosi|
|00001040| 6e 65 20 6f 66 20 74 68 | 65 20 61 6e 67 6c 65 20 |ne of th|e angle |
|00001050| 69 73 20 3d 20 22 20 3b | 20 43 4f 53 28 41 6e 67 |is = " ;| COS(Ang|
|00001060| 6c 65 29 20 3b 20 22 20 | 72 61 64 69 61 6e 73 22 |le) ; " |radians"|
|00001070| 0d 0d 0d 31 30 20 52 45 | 4d 20 43 52 45 41 54 45 |...10 RE|M CREATE|
|00001080| 20 45 78 61 6d 70 6c 65 | 0d 32 30 20 52 45 4d 20 | Example|.20 REM |
|00001090| 43 72 65 61 74 65 73 20 | 61 20 66 69 6c 65 2e 2e |Creates |a file..|
|000010a0| 2e 70 72 6f 6d 70 74 73 | 20 66 6f 72 20 73 6f 6d |.prompts| for som|
|000010b0| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 2c 20 73 |e inform|ation, s|
|000010c0| 74 6f 72 65 73 20 74 68 | 65 6e 20 64 65 6c 65 74 |tores th|en delet|
|000010d0| 65 73 20 69 74 2e 0d 34 | 30 20 43 52 45 41 54 45 |es it..4|0 CREATE|
|000010e0| 20 63 68 61 6e 2c 20 22 | 45 58 41 4d 50 4c 45 46 | chan, "|EXAMPLEF|
|000010f0| 69 6c 65 22 2c 20 6b 65 | 79 6e 61 6d 65 0d 34 35 |ile", ke|yname.45|
|00001100| 20 49 46 20 46 53 54 41 | 54 3d 31 20 54 48 45 4e | IF FSTA|T=1 THEN|
|00001110| 20 53 54 4f 50 20 2f 2f | 20 43 52 45 41 54 45 20 | STOP //| CREATE |
|00001120| 65 72 72 6f 72 0d 35 30 | 20 50 52 49 4e 54 20 22 |error.50| PRINT "|
|00001130| 50 6c 65 61 73 65 20 65 | 6e 74 65 72 20 73 6f 6d |Please e|nter som|
|00001140| 65 20 6b 65 79 20 64 61 | 74 61 2e 2e 2e 22 0d 36 |e key da|ta...".6|
|00001150| 30 20 49 4e 50 55 54 20 | 46 69 6c 65 4b 65 79 0d |0 INPUT |FileKey.|
|00001160| 37 30 20 66 69 6c 65 52 | 65 63 6f 72 64 20 3d 20 |70 fileR|ecord = |
|00001170| 7b 7d 0d 38 30 20 66 69 | 6c 65 52 65 63 6f 72 64 |{}.80 fi|leRecord|
|00001180| 2e 6b 65 79 6e 61 6d 65 | 20 3d 20 46 69 6c 65 4b |.keyname| = FileK|
|00001190| 65 79 20 2f 2f 20 6b 65 | 79 0d 39 30 20 50 55 54 |ey // ke|y.90 PUT|
|000011a0| 20 63 68 61 6e 2c 20 66 | 69 6c 65 52 65 63 6f 72 | chan, f|ileRecor|
|000011b0| 64 0d 31 30 30 20 49 46 | 20 46 53 54 41 54 3d 31 |d.100 IF| FSTAT=1|
|000011c0| 20 54 48 45 4e 20 53 54 | 4f 50 20 2f 2f 20 50 55 | THEN ST|OP // PU|
|000011d0| 54 20 65 72 72 6f 72 0d | 31 31 30 20 50 52 49 4e |T error.|110 PRIN|
|000011e0| 54 20 22 44 61 74 61 20 | 6e 6f 77 20 69 6e 20 66 |T "Data |now in f|
|000011f0| 69 6c 65 20 69 73 2e 2e | 2e 22 0d 31 32 30 20 47 |ile is..|.".120 G|
|00001200| 45 54 20 63 68 61 6e 2c | 46 65 74 63 68 65 64 44 |ET chan,|FetchedD|
|00001210| 61 74 61 2c 46 69 6c 65 | 4b 65 79 0d 31 33 30 20 |ata,File|Key.130 |
|00001220| 49 46 20 46 53 54 41 54 | 3d 31 20 54 48 45 4e 20 |IF FSTAT|=1 THEN |
|00001230| 53 54 4f 50 20 2f 2f 20 | 47 45 54 20 65 72 72 6f |STOP // |GET erro|
|00001240| 72 0d 31 34 30 20 50 52 | 49 4e 54 20 46 65 74 63 |r.140 PR|INT Fetc|
|00001250| 68 65 64 44 61 74 61 0d | 31 35 30 20 50 52 49 4e |hedData.|150 PRIN|
|00001260| 54 20 22 44 65 6c 65 74 | 69 6e 67 20 52 65 63 6f |T "Delet|ing Reco|
|00001270| 72 64 20 46 72 6f 6d 20 | 46 69 6c 65 22 0d 31 36 |rd From |File".16|
|00001280| 30 20 44 45 4c 20 63 68 | 61 6e 2c 46 65 74 63 68 |0 DEL ch|an,Fetch|
|00001290| 65 64 44 61 74 61 0d 0d | 0d 31 30 20 52 45 4d 20 |edData..|.10 REM |
|000012a0| 44 41 54 41 20 45 78 61 | 6d 70 6c 65 0d 32 30 20 |DATA Exa|mple.20 |
|000012b0| 44 49 4d 20 61 5b 31 30 | 5d 0d 33 30 20 64 61 74 |DIM a[10|].30 dat|
|000012c0| 61 20 34 2c 35 2c 36 2e | 35 2c 20 22 54 68 69 73 |a 4,5,6.|5, "This|
|000012d0| 22 2c 20 22 49 73 22 0d | 34 30 20 64 61 74 61 20 |", "Is".|40 data |
|000012e0| 22 53 74 72 69 6e 67 22 | 2c 20 22 44 61 74 61 22 |"String"|, "Data"|
|000012f0| 2c 20 2d 30 2e 30 31 0d | 35 30 20 46 4f 52 20 69 |, -0.01.|50 FOR i|
|00001300| 20 3d 20 30 20 54 4f 20 | 37 0d 36 30 20 52 45 41 | = 0 TO |7.60 REA|
|00001310| 44 20 61 5b 69 5d 0d 37 | 30 20 50 52 49 4e 54 20 |D a[i].7|0 PRINT |
|00001320| 61 5b 69 5d 0d 38 30 20 | 4e 45 58 54 20 69 0d 0d |a[i].80 |NEXT i..|
|00001330| 0d 31 30 20 52 45 4d 20 | 44 41 54 41 20 45 78 61 |.10 REM |DATA Exa|
|00001340| 6d 70 6c 65 0d 32 30 20 | 44 49 4d 20 61 5b 31 30 |mple.20 |DIM a[10|
|00001350| 5d 0d 33 30 20 64 61 74 | 61 20 34 2c 35 2c 36 2e |].30 dat|a 4,5,6.|
|00001360| 35 2c 20 22 54 68 69 73 | 22 2c 20 22 49 73 22 0d |5, "This|", "Is".|
|00001370| 34 30 20 64 61 74 61 20 | 22 53 74 72 69 6e 67 22 |40 data |"String"|
|00001380| 2c 20 22 44 61 74 61 22 | 2c 20 2d 30 2e 30 31 0d |, "Data"|, -0.01.|
|00001390| 35 30 20 46 4f 52 20 69 | 20 3d 20 30 20 54 4f 20 |50 FOR i| = 0 TO |
|000013a0| 37 0d 36 30 20 52 45 41 | 44 20 61 5b 69 5d 0d 37 |7.60 REA|D a[i].7|
|000013b0| 30 20 50 52 49 4e 54 20 | 61 5b 69 5d 0d 38 30 20 |0 PRINT |a[i].80 |
|000013c0| 4e 45 58 54 20 69 0d 0d | 0d 31 30 20 52 45 4d 20 |NEXT i..|.10 REM |
|000013d0| 44 41 54 45 4e 54 49 4d | 45 20 45 78 61 6d 70 6c |DATENTIM|E Exampl|
|000013e0| 65 0d 32 30 20 43 75 72 | 54 69 6d 65 20 3d 20 54 |e.20 Cur|Time = T|
|000013f0| 49 4d 45 28 29 0d 33 30 | 20 50 52 49 4e 54 20 44 |IME().30| PRINT D|
|00001400| 41 54 45 4e 54 49 4d 45 | 28 43 75 72 54 69 6d 65 |ATENTIME|(CurTime|
|00001410| 29 0d 0d 0d 31 30 20 52 | 45 4d 20 44 45 4c 20 45 |)...10 R|EM DEL E|
|00001420| 78 61 6d 70 6c 65 0d 32 | 30 20 52 45 4d 20 43 72 |xample.2|0 REM Cr|
|00001430| 65 61 74 65 73 20 61 20 | 66 69 6c 65 2e 2e 2e 70 |eates a |file...p|
|00001440| 72 6f 6d 70 74 73 20 66 | 6f 72 20 73 6f 6d 65 20 |rompts f|or some |
|00001450| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2c 20 73 74 6f |informat|ion, sto|
|00001460| 72 65 73 20 74 68 65 6e | 20 64 65 6c 65 74 65 73 |res then| deletes|
|00001470| 20 69 74 2e 0d 34 30 20 | 43 52 45 41 54 45 20 63 | it..40 |CREATE c|
|00001480| 68 61 6e 2c 20 22 45 58 | 41 4d 50 4c 45 46 69 6c |han, "EX|AMPLEFil|
|00001490| 65 22 2c 20 6b 65 79 6e | 61 6d 65 0d 34 35 20 49 |e", keyn|ame.45 I|
|000014a0| 46 20 46 53 54 41 54 3d | 31 20 54 48 45 4e 20 53 |F FSTAT=|1 THEN S|
|000014b0| 54 4f 50 20 2f 2f 20 43 | 52 45 41 54 45 20 65 72 |TOP // C|REATE er|
|000014c0| 72 6f 72 0d 35 30 20 50 | 52 49 4e 54 20 22 50 6c |ror.50 P|RINT "Pl|
|000014d0| 65 61 73 65 20 65 6e 74 | 65 72 20 73 6f 6d 65 20 |ease ent|er some |
|000014e0| 6b 65 79 20 64 61 74 61 | 2e 2e 2e 22 0d 36 30 20 |key data|...".60 |
|000014f0| 49 4e 50 55 54 20 46 69 | 6c 65 4b 65 79 0d 37 30 |INPUT Fi|leKey.70|
|00001500| 20 66 69 6c 65 52 65 63 | 6f 72 64 20 3d 20 7b 7d | fileRec|ord = {}|
|00001510| 0d 38 30 20 66 69 6c 65 | 52 65 63 6f 72 64 2e 6b |.80 file|Record.k|
|00001520| 65 79 6e 61 6d 65 20 3d | 20 46 69 6c 65 4b 65 79 |eyname =| FileKey|
|00001530| 0d 39 30 20 50 55 54 20 | 63 68 61 6e 2c 20 66 69 |.90 PUT |chan, fi|
|00001540| 6c 65 52 65 63 6f 72 64 | 0d 31 30 30 20 49 46 20 |leRecord|.100 IF |
|00001550| 46 53 54 41 54 3d 31 20 | 54 48 45 4e 20 53 54 4f |FSTAT=1 |THEN STO|
|00001560| 50 20 2f 2f 20 50 55 54 | 20 65 72 72 6f 72 0d 31 |P // PUT| error.1|
|00001570| 31 30 20 50 52 49 4e 54 | 20 22 44 61 74 61 20 6e |10 PRINT| "Data n|
|00001580| 6f 77 20 69 6e 20 66 69 | 6c 65 20 69 73 2e 2e 2e |ow in fi|le is...|
|00001590| 22 0d 31 32 30 20 47 45 | 54 20 63 68 61 6e 2c 46 |".120 GE|T chan,F|
|000015a0| 65 74 63 68 65 64 44 61 | 74 61 2c 46 69 6c 65 4b |etchedDa|ta,FileK|
|000015b0| 65 79 0d 31 33 30 20 49 | 46 20 46 53 54 41 54 3d |ey.130 I|F FSTAT=|
|000015c0| 31 20 54 48 45 4e 20 53 | 54 4f 50 20 2f 2f 20 47 |1 THEN S|TOP // G|
|000015d0| 45 54 20 65 72 72 6f 72 | 0d 31 34 30 20 50 52 49 |ET error|.140 PRI|
|000015e0| 4e 54 20 46 65 74 63 68 | 65 64 44 61 74 61 0d 31 |NT Fetch|edData.1|
|000015f0| 35 30 20 50 52 49 4e 54 | 20 22 44 65 6c 65 74 69 |50 PRINT| "Deleti|
|00001600| 6e 67 20 52 65 63 6f 72 | 64 20 46 72 6f 6d 20 46 |ng Recor|d From F|
|00001610| 69 6c 65 22 0d 31 36 30 | 20 44 45 4c 20 63 68 61 |ile".160| DEL cha|
|00001620| 6e 2c 46 65 74 63 68 65 | 64 44 61 74 61 0d 0d 0d |n,Fetche|dData...|
|00001630| 31 30 20 52 45 4d 20 44 | 45 4c 45 54 45 20 45 78 |10 REM D|ELETE Ex|
|00001640| 61 6d 70 6c 65 0d 32 30 | 20 43 52 45 41 54 45 20 |ample.20| CREATE |
|00001650| 63 68 61 6e 2c 20 22 53 | 6f 6d 65 66 69 6c 65 22 |chan, "S|omefile"|
|00001660| 2c 20 6b 65 79 0d 33 30 | 20 44 45 4c 45 54 45 20 |, key.30| DELETE |
|00001670| 53 6f 6d 65 66 69 6c 65 | 0d 0d 0d 31 30 20 52 45 |Somefile|...10 RE|
|00001680| 4d 20 44 49 56 20 45 78 | 61 6d 70 6c 65 0d 32 30 |M DIV Ex|ample.20|
|00001690| 20 52 45 4d 20 54 68 69 | 73 20 70 72 6f 67 72 61 | REM Thi|s progra|
|000016a0| 6d 20 74 61 6b 65 73 20 | 74 77 6f 20 6e 75 6d 62 |m takes |two numb|
|000016b0| 65 72 73 20 61 6e 64 20 | 63 6f 6d 70 75 74 65 73 |ers and |computes|
|000016c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 74 69 6d 65 73 | number |of times|
|000016d0| 20 74 68 65 20 32 20 6e | 75 6d 62 65 72 73 20 63 | the 2 n|umbers c|
|000016e0| 61 6e 20 62 65 20 64 69 | 76 69 64 65 64 2e 0d 33 |an be di|vided..3|
|000016f0| 30 20 50 52 49 4e 54 20 | 22 50 6c 65 61 73 65 20 |0 PRINT |"Please |
|00001700| 65 6e 74 65 72 20 74 77 | 6f 20 6e 75 6d 62 65 72 |enter tw|o number|
|00001710| 73 2e 22 0d 34 30 20 49 | 4e 50 55 54 20 4e 75 6d |s.".40 I|NPUT Num|
|00001720| 62 65 72 31 2c 4e 75 6d | 62 65 72 32 0d 35 30 20 |ber1,Num|ber2.50 |
|00001730| 52 65 73 75 6c 74 20 3d | 20 4e 75 6d 62 65 72 31 |Result =| Number1|
|00001740| 20 44 49 56 20 4e 75 6d | 62 65 72 32 0d 36 30 20 | DIV Num|ber2.60 |
|00001750| 50 52 49 4e 54 20 22 54 | 68 65 20 6e 75 6d 62 65 |PRINT "T|he numbe|
|00001760| 72 20 6f 66 20 74 69 6d | 65 73 20 22 20 3b 20 4e |r of tim|es " ; N|
|00001770| 75 6d 62 65 72 31 20 3b | 20 22 20 63 61 6e 20 62 |umber1 ;| " can b|
|00001780| 65 20 64 69 76 69 64 65 | 64 20 62 79 20 22 20 3b |e divide|d by " ;|
|00001790| 20 4e 75 6d 62 65 72 32 | 3b 20 22 20 69 73 20 22 | Number2|; " is "|
|000017a0| 20 3b 20 52 65 73 75 6c | 74 0d 0d 0d 31 30 20 52 | ; Resul|t...10 R|
|000017b0| 45 4d 20 44 52 41 57 20 | 45 78 61 6d 70 6c 65 0d |EM DRAW |Example.|
|000017c0| 32 30 20 77 31 53 70 65 | 63 20 3d 20 7b 7d 0d 33 |20 w1Spe|c = {}.3|
|000017d0| 30 20 57 49 4e 44 4f 57 | 20 77 31 2c 20 77 31 53 |0 WINDOW| w1, w1S|
|000017e0| 70 65 63 2c 20 22 44 52 | 41 57 22 0d 36 30 20 53 |pec, "DR|AW".60 S|
|000017f0| 48 4f 57 20 77 31 0d 0d | 0d 31 30 20 52 45 4d 20 |HOW w1..|.10 REM |
|00001800| 45 4c 45 4d 45 4e 54 53 | 20 45 78 61 6d 70 6c 65 |ELEMENTS| Example|
|00001810| 0d 32 30 20 58 3d 7b 61 | 3a 20 31 2c 20 64 3a 20 |.20 X={a|: 1, d: |
|00001820| 34 2c 20 62 3a 20 32 2c | 20 63 3a 33 7d 0d 33 30 |4, b: 2,| c:3}.30|
|00001830| 20 59 3d 65 6c 65 6d 65 | 6e 74 73 28 58 29 0d 34 | Y=eleme|nts(X).4|
|00001840| 30 20 46 4f 52 20 69 3d | 30 20 54 4f 20 6c 65 6e |0 FOR i=|0 TO len|
|00001850| 67 74 68 28 59 29 2d 31 | 0d 35 30 20 50 52 49 4e |gth(Y)-1|.50 PRIN|
|00001860| 54 20 59 5b 69 5d 3b 20 | 78 2e 28 49 4e 54 45 52 |T Y[i]; |x.(INTER|
|00001870| 4e 28 59 5b 69 5d 29 29 | 0d 36 30 20 4e 45 58 54 |N(Y[i]))|.60 NEXT|
|00001880| 20 49 0d 0d 0d 31 30 20 | 52 45 4d 20 45 4e 44 20 | I...10 |REM END |
|00001890| 45 78 61 6d 70 6c 65 0d | 32 30 20 50 52 49 4e 54 |Example.|20 PRINT|
|000018a0| 20 22 4c 69 6e 65 20 4e | 75 6d 62 65 72 20 31 22 | "Line N|umber 1"|
|000018b0| 0d 33 30 20 45 4e 44 0d | 34 30 20 50 52 49 4e 54 |.30 END.|40 PRINT|
|000018c0| 20 22 4c 69 6e 65 20 4e | 75 6d 62 65 72 20 32 22 | "Line N|umber 2"|
|000018d0| 0d 0d 31 30 20 52 45 4d | 20 45 52 41 53 45 20 45 |..10 REM| ERASE E|
|000018e0| 78 61 6d 70 6c 65 0d 32 | 30 20 45 52 41 53 45 20 |xample.2|0 ERASE |
|000018f0| 33 30 2c 20 34 30 0d 33 | 30 20 50 52 49 4e 54 20 |30, 40.3|0 PRINT |
|00001900| 22 4c 69 6e 65 20 33 30 | 22 0d 34 30 20 50 52 49 |"Line 30|".40 PRI|
|00001910| 4e 54 20 22 4c 69 6e 65 | 20 34 30 22 0d 35 30 20 |NT "Line| 40".50 |
|00001920| 50 52 49 4e 54 20 22 4c | 69 6e 65 20 35 30 22 0d |PRINT "L|ine 50".|
|00001930| 0d 0d 31 30 20 52 45 4d | 20 45 72 72 6f 72 20 43 |..10 REM| Error C|
|00001940| 68 65 63 6b 69 6e 67 20 | 45 78 61 6d 70 6c 65 0d |hecking |Example.|
|00001950| 32 30 20 4f 4e 20 45 52 | 52 4f 52 20 47 4f 54 4f |20 ON ER|ROR GOTO|
|00001960| 20 36 30 0d 33 30 20 78 | 20 3d 20 31 2f 30 0d 34 | 60.30 x| = 1/0.4|
|00001970| 30 20 4f 4e 20 45 52 52 | 4f 52 20 47 4f 54 4f 20 |0 ON ERR|OR GOTO |
|00001980| 30 0d 35 30 20 45 4e 44 | 0d 36 30 20 50 52 49 4e |0.50 END|.60 PRIN|
|00001990| 54 20 22 45 72 72 6f 72 | 20 52 6f 75 74 69 6e 65 |T "Error| Routine|
|000019a0| 22 0d 0d 0d 31 30 20 52 | 45 4d 20 46 69 6c 65 2f |"...10 R|EM File/|
|000019b0| 4b 65 79 20 72 65 74 72 | 69 65 76 61 6c 20 45 78 |Key retr|ieval Ex|
|000019c0| 61 6d 70 6c 65 0d 32 30 | 20 52 45 4d 20 4f 50 45 |ample.20| REM OPE|
|000019d0| 4e 20 6f 72 20 43 52 45 | 41 54 45 20 61 20 66 69 |N or CRE|ATE a fi|
|000019e0| 6c 65 2e 2e 2e 70 72 6f | 6d 70 74 73 20 66 6f 72 |le...pro|mpts for|
|000019f0| 20 73 6f 6d 65 20 69 6e | 66 6f 72 6d 61 74 69 6f | some in|formatio|
|00001a00| 6e 2c 20 73 74 6f 72 65 | 73 20 69 74 2c 20 74 68 |n, store|s it, th|
|00001a10| 65 6e 20 61 6c 6c 6f 77 | 73 20 66 65 74 63 68 2e |en allow|s fetch.|
|00001a20| 0d 33 30 20 4f 50 45 4e | 20 63 68 61 6e 2c 20 22 |.30 OPEN| chan, "|
|00001a30| 45 58 41 4d 50 4c 45 46 | 69 6c 65 22 2c 20 6b 65 |EXAMPLEF|ile", ke|
|00001a40| 79 6e 61 6d 65 0d 34 30 | 20 69 66 20 46 53 54 41 |yname.40| if FSTA|
|00001a50| 54 20 3d 20 31 20 74 68 | 65 6e 20 43 52 45 41 54 |T = 1 th|en CREAT|
|00001a60| 45 20 63 68 61 6e 2c 20 | 22 45 58 41 4d 50 4c 45 |E chan, |"EXAMPLE|
|00001a70| 46 69 6c 65 22 2c 20 6b | 65 79 6e 61 6d 65 0d 35 |File", k|eyname.5|
|00001a80| 30 20 69 66 20 46 53 54 | 41 54 20 3d 31 20 74 68 |0 if FST|AT =1 th|
|00001a90| 65 6e 20 67 6f 74 6f 20 | 33 30 30 0d 36 30 20 50 |en goto |300.60 P|
|00001aa0| 52 49 4e 54 20 22 50 6c | 65 61 73 65 20 65 6e 74 |RINT "Pl|ease ent|
|00001ab0| 65 72 20 61 20 4b 65 79 | 2c 20 51 20 74 6f 20 66 |er a Key|, Q to f|
|00001ac0| 69 6e 69 73 68 22 0d 37 | 30 20 49 4e 50 55 54 20 |inish".7|0 INPUT |
|00001ad0| 46 69 6c 65 4b 65 79 0d | 38 30 20 69 66 20 46 69 |FileKey.|80 if Fi|
|00001ae0| 6c 65 4b 65 79 20 3d 20 | 22 51 22 20 74 68 65 6e |leKey = |"Q" then|
|00001af0| 20 67 6f 74 6f 20 32 31 | 30 0d 39 30 20 66 69 6c | goto 21|0.90 fil|
|00001b00| 65 52 65 63 6f 72 64 20 | 3d 20 7b 7d 0d 31 30 30 |eRecord |= {}.100|
|00001b10| 20 66 69 6c 65 52 65 63 | 6f 72 64 2e 6b 65 79 6e | fileRec|ord.keyn|
|00001b20| 61 6d 65 20 3d 20 46 69 | 6c 65 4b 65 79 0d 31 31 |ame = Fi|leKey.11|
|00001b30| 30 20 50 52 49 4e 54 20 | 22 50 6c 65 61 73 65 20 |0 PRINT |"Please |
|00001b40| 65 6e 74 65 72 20 73 6f | 6d 65 20 64 61 74 61 20 |enter so|me data |
|00001b50| 66 6f 72 20 74 68 69 73 | 20 4b 65 79 22 0d 31 32 |for this| Key".12|
|00001b60| 30 20 49 4e 50 55 54 20 | 46 69 6c 65 44 61 74 61 |0 INPUT |FileData|
|00001b70| 0d 31 33 30 20 66 69 6c | 65 52 65 63 6f 72 64 2e |.130 fil|eRecord.|
|00001b80| 69 6e 66 6f 20 3d 20 46 | 69 6c 65 44 61 74 61 0d |info = F|ileData.|
|00001b90| 31 34 30 20 50 52 49 4e | 54 20 22 45 6e 74 65 72 |140 PRIN|T "Enter|
|00001ba0| 20 61 20 6e 75 6d 62 65 | 72 2c 20 6f 72 20 53 20 | a numbe|r, or S |
|00001bb0| 74 6f 20 53 6b 69 70 3a | 22 0d 31 35 30 20 69 6e |to Skip:|".150 in|
|00001bc0| 70 75 74 20 6e 75 6d 24 | 0d 31 36 30 20 69 66 20 |put num$|.160 if |
|00001bd0| 6e 75 6d 24 20 3d 20 22 | 53 22 20 74 68 65 6e 20 |num$ = "|S" then |
|00001be0| 67 6f 74 6f 20 31 38 30 | 0d 31 37 30 20 66 69 6c |goto 180|.170 fil|
|00001bf0| 65 52 65 63 6f 72 64 2e | 6e 75 6d 20 3d 20 73 74 |eRecord.|num = st|
|00001c00| 72 69 6e 67 74 6f 6e 75 | 6d 62 65 72 28 6e 75 6d |ringtonu|mber(num|
|00001c10| 24 29 0d 31 38 30 20 50 | 55 54 20 63 68 61 6e 2c |$).180 P|UT chan,|
|00001c20| 20 66 69 6c 65 52 65 63 | 6f 72 64 0d 31 39 30 20 | fileRec|ord.190 |
|00001c30| 49 46 20 46 53 54 41 54 | 3d 31 20 54 48 45 4e 20 |IF FSTAT|=1 THEN |
|00001c40| 53 54 4f 50 0d 32 30 30 | 20 47 4f 54 4f 20 36 30 |STOP.200| GOTO 60|
|00001c50| 0d 32 31 30 20 50 52 49 | 4e 54 20 22 50 6c 65 61 |.210 PRI|NT "Plea|
|00001c60| 73 65 20 65 6e 74 65 72 | 20 61 20 4b 65 79 20 74 |se enter| a Key t|
|00001c70| 6f 20 66 69 6e 64 2c 20 | 51 20 74 6f 20 65 6e 64 |o find, |Q to end|
|00001c80| 22 0d 32 32 30 20 49 4e | 50 55 54 20 46 69 6c 65 |".220 IN|PUT File|
|00001c90| 4b 65 79 0d 32 33 30 20 | 69 66 20 46 69 6c 65 4b |Key.230 |if FileK|
|00001ca0| 65 79 20 3d 20 22 51 22 | 20 74 68 65 6e 20 67 6f |ey = "Q"| then go|
|00001cb0| 74 6f 20 32 39 30 0d 32 | 34 30 20 47 45 54 20 63 |to 290.2|40 GET c|
|00001cc0| 68 61 6e 2c 46 65 74 63 | 68 65 64 44 61 74 61 2c |han,Fetc|hedData,|
|00001cd0| 46 69 6c 65 4b 65 79 0d | 32 35 30 20 49 46 20 46 |FileKey.|250 IF F|
|00001ce0| 53 54 41 54 3d 31 20 54 | 48 45 4e 20 53 54 4f 50 |STAT=1 T|HEN STOP|
|00001cf0| 0d 32 36 30 20 69 66 20 | 46 53 54 41 54 3d 32 20 |.260 if |FSTAT=2 |
|00001d00| 74 68 65 6e 20 50 52 49 | 4e 54 20 22 4e 6f 74 20 |then PRI|NT "Not |
|00001d10| 66 6f 75 6e 64 21 20 43 | 6c 6f 73 65 20 52 65 63 |found! C|lose Rec|
|00001d20| 6f 72 64 20 69 73 2e 2e | 2e 22 20 65 6c 73 65 20 |ord is..|." else |
|00001d30| 50 52 49 4e 54 20 22 44 | 61 74 61 20 69 73 2e 2e |PRINT "D|ata is..|
|00001d40| 2e 22 0d 32 37 30 20 50 | 52 49 4e 54 20 46 65 74 |.".270 P|RINT Fet|
|00001d50| 63 68 65 64 44 61 74 61 | 0d 32 38 30 20 47 4f 54 |chedData|.280 GOT|
|00001d60| 4f 20 32 31 30 0d 32 39 | 30 20 65 6e 64 0d 33 30 |O 210.29|0 end.30|
|00001d70| 30 20 72 65 6d 20 65 72 | 72 6f 72 2c 20 63 61 6e |0 rem er|ror, can|
|00001d80| 6e 6f 74 20 4f 50 45 4e | 20 6f 72 20 43 52 45 41 |not OPEN| or CREA|
|00001d90| 54 45 20 66 69 6c 65 21 | 0d 33 31 30 20 50 52 49 |TE file!|.310 PRI|
|00001da0| 4e 54 20 22 45 72 72 6f | 72 21 20 43 61 6e 6e 6f |NT "Erro|r! Canno|
|00001db0| 74 20 4f 50 45 4e 20 6f | 72 20 43 52 45 41 54 45 |t OPEN o|r CREATE|
|00001dc0| 20 45 58 41 4d 50 4c 45 | 66 69 6c 65 2e 22 0d 33 | EXAMPLE|file.".3|
|00001dd0| 32 30 20 65 6e 64 0d 0d | 0d 31 30 20 52 45 4d 20 |20 end..|.10 REM |
|00001de0| 46 4c 4f 4f 52 20 45 78 | 61 6d 70 6c 65 0d 32 30 |FLOOR Ex|ample.20|
|00001df0| 20 50 52 49 4e 54 20 22 | 50 6c 65 61 73 65 20 65 | PRINT "|Please e|
|00001e00| 6e 74 65 72 20 61 20 6e | 75 6d 62 65 72 22 0d 33 |nter a n|umber".3|
|00001e10| 30 20 49 4e 50 55 54 20 | 4e 75 6d 62 65 72 0d 34 |0 INPUT |Number.4|
|00001e20| 30 20 50 52 49 4e 54 20 | 22 4e 65 78 74 20 53 6d |0 PRINT |"Next Sm|
|00001e30| 61 6c 6c 65 73 74 20 69 | 6e 74 65 67 65 72 20 69 |allest i|nteger i|
|00001e40| 73 2e 2e 2e 22 20 3b 20 | 46 4c 4f 4f 52 28 4e 75 |s..." ; |FLOOR(Nu|
|00001e50| 6d 62 65 72 29 0d 0d 0d | 31 30 20 52 45 4d 20 46 |mber)...|10 REM F|
|00001e60| 4f 52 20 4c 6f 6f 70 20 | 45 78 61 6d 70 6c 65 0d |OR Loop |Example.|
|00001e70| 32 30 20 46 4f 52 20 69 | 20 3d 20 31 20 54 4f 20 |20 FOR i| = 1 TO |
|00001e80| 31 30 20 53 54 45 50 20 | 33 0d 33 30 20 46 4f 52 |10 STEP |3.30 FOR|
|00001e90| 20 6a 20 3d 20 31 20 74 | 6f 20 32 0d 34 30 20 50 | j = 1 t|o 2.40 P|
|00001ea0| 52 49 4e 54 20 69 2c 6a | 0d 35 30 20 4e 45 58 54 |RINT i,j|.50 NEXT|
|00001eb0| 20 6a 0d 36 30 20 4e 45 | 58 54 20 69 0d 0d 0d 31 | j.60 NE|XT i...1|
|00001ec0| 30 20 52 45 4d 20 46 4f | 52 2f 4e 45 58 54 20 45 |0 REM FO|R/NEXT E|
|00001ed0| 78 61 6d 70 6c 65 0d 32 | 30 20 46 4f 52 20 69 20 |xample.2|0 FOR i |
|00001ee0| 3d 20 31 20 54 4f 20 35 | 0d 33 30 20 50 52 49 4e |= 1 TO 5|.30 PRIN|
|00001ef0| 54 20 69 0d 34 30 20 4e | 45 58 54 20 69 0d 0d 0d |T i.40 N|EXT i...|
|00001f00| 31 30 20 52 45 4d 20 46 | 52 41 4d 45 20 45 78 61 |10 REM F|RAME Exa|
|00001f10| 6d 70 6c 65 0d 32 30 20 | 72 65 6d 20 6d 79 55 73 |mple.20 |rem myUs|
|00001f20| 65 72 20 69 73 20 61 20 | 76 61 72 69 61 62 6c 65 |er is a |variable|
|00001f30| 20 68 6f 6c 64 69 6e 67 | 0d 33 30 20 72 65 6d 20 | holding|.30 rem |
|00001f40| 61 6c 6c 20 74 68 65 20 | 69 6e 66 6f 20 66 6f 72 |all the |info for|
|00001f50| 20 61 20 75 73 65 72 0d | 34 30 20 6d 79 55 73 65 | a user.|40 myUse|
|00001f60| 72 20 3d 20 7b 7d 20 2f | 2f 20 61 6e 20 65 6d 70 |r = {} /|/ an emp|
|00001f70| 74 79 20 63 6f 6e 74 61 | 69 6e 65 72 0d 35 30 20 |ty conta|iner.50 |
|00001f80| 50 52 49 4e 54 20 22 45 | 6e 74 65 72 20 79 6f 75 |PRINT "E|nter you|
|00001f90| 72 20 66 69 72 73 74 20 | 6e 61 6d 65 3a 22 0d 36 |r first |name:".6|
|00001fa0| 30 20 69 6e 70 75 74 20 | 6e 61 6d 65 24 0d 37 30 |0 input |name$.70|
|00001fb0| 20 6d 79 55 73 65 72 2e | 66 69 72 73 74 4e 61 6d | myUser.|firstNam|
|00001fc0| 65 20 3d 20 6e 61 6d 65 | 24 0d 38 30 20 50 52 49 |e = name|$.80 PRI|
|00001fd0| 4e 54 20 6d 79 55 73 65 | 72 20 2f 2f 20 73 65 65 |NT myUse|r // see|
|00001fe0| 20 65 6c 65 6d 65 6e 74 | 73 20 61 64 64 65 64 0d | element|s added.|
|00001ff0| 39 30 20 50 52 49 4e 54 | 20 22 45 6e 74 65 72 20 |90 PRINT| "Enter |
|00002000| 79 6f 75 72 20 6c 61 73 | 74 20 6e 61 6d 65 3a 22 |your las|t name:"|
|00002010| 0d 31 30 30 20 69 6e 70 | 75 74 20 6e 61 6d 65 24 |.100 inp|ut name$|
|00002020| 0d 31 31 30 20 6d 79 55 | 73 65 72 2e 6c 61 73 74 |.110 myU|ser.last|
|00002030| 4e 61 6d 65 20 3d 20 6e | 61 6d 65 24 0d 31 32 30 |Name = n|ame$.120|
|00002040| 20 50 52 49 4e 54 20 6d | 79 55 73 65 72 20 2f 2f | PRINT m|yUser //|
|00002050| 20 73 65 65 20 61 6e 6f | 74 68 65 72 20 65 6c 65 | see ano|ther ele|
|00002060| 6d 65 6e 74 21 0d 31 33 | 30 20 50 52 49 4e 54 20 |ment!.13|0 PRINT |
|00002070| 22 45 6e 74 65 72 20 79 | 6f 75 72 20 61 67 65 2c |"Enter y|our age,|
|00002080| 20 6f 72 20 53 20 74 6f | 20 53 6b 69 70 3a 22 0d | or S to| Skip:".|
|00002090| 31 34 30 20 69 6e 70 75 | 74 20 61 67 65 24 0d 31 |140 inpu|t age$.1|
|000020a0| 35 30 20 69 66 20 61 67 | 65 24 20 3d 20 22 53 22 |50 if ag|e$ = "S"|
|000020b0| 20 74 68 65 6e 20 67 6f | 74 6f 20 31 37 30 0d 31 | then go|to 170.1|
|000020c0| 36 30 20 6d 79 55 73 65 | 72 2e 61 67 65 20 3d 20 |60 myUse|r.age = |
|000020d0| 73 74 72 69 6e 67 74 6f | 6e 75 6d 62 65 72 28 61 |stringto|number(a|
|000020e0| 67 65 24 29 0d 31 37 30 | 20 50 52 49 4e 54 20 6d |ge$).170| PRINT m|
|000020f0| 79 55 73 65 72 20 2f 2f | 20 66 69 6e 61 6c 20 66 |yUser //| final f|
|00002100| 6f 72 6d 0d 31 38 30 20 | 50 52 49 4e 54 20 22 46 |orm.180 |PRINT "F|
|00002110| 69 72 73 74 20 4e 61 6d | 65 3a 20 22 3b 20 6d 79 |irst Nam|e: "; my|
|00002120| 55 73 65 72 2e 66 69 72 | 73 74 4e 61 6d 65 0d 31 |User.fir|stName.1|
|00002130| 39 30 20 50 52 49 4e 54 | 20 22 4c 61 73 74 20 4e |90 PRINT| "Last N|
|00002140| 61 6d 65 3a 20 22 3b 20 | 6d 79 55 73 65 72 2e 6c |ame: "; |myUser.l|
|00002150| 61 73 74 4e 61 6d 65 0d | 32 30 30 20 69 66 20 6d |astName.|200 if m|
|00002160| 79 55 73 65 72 2e 61 67 | 65 20 3d 20 6e 69 6c 20 |yUser.ag|e = nil |
|00002170| 74 68 65 6e 20 67 6f 74 | 6f 20 32 32 30 0d 32 31 |then got|o 220.21|
|00002180| 30 20 50 52 49 4e 54 20 | 22 41 67 65 3a 20 22 3b |0 PRINT |"Age: ";|
|00002190| 20 6d 79 55 73 65 72 2e | 61 67 65 0d 32 32 30 20 | myUser.|age.220 |
|000021a0| 50 52 49 4e 54 20 22 54 | 72 79 20 61 67 61 69 6e |PRINT "T|ry again|
|000021b0| 3f 20 28 59 2f 4e 29 3a | 22 0d 32 33 30 20 69 6e |? (Y/N):|".230 in|
|000021c0| 70 75 74 20 61 6e 73 24 | 0d 32 34 30 20 69 66 20 |put ans$|.240 if |
|000021d0| 61 6e 73 24 20 3d 20 22 | 59 22 20 74 68 65 6e 20 |ans$ = "|Y" then |
|000021e0| 67 6f 74 6f 20 33 30 0d | 0d 0d 31 30 20 52 45 4d |goto 30.|..10 REM|
|000021f0| 20 46 55 4e 43 54 49 4f | 4e 20 45 78 61 6d 70 6c | FUNCTIO|N Exampl|
|00002200| 65 0d 32 30 20 44 45 46 | 20 46 4e 53 28 73 74 61 |e.20 DEF| FNS(sta|
|00002210| 72 74 74 69 6d 65 29 3d | 28 54 49 43 4b 53 28 29 |rttime)=|(TICKS()|
|00002220| 2d 73 74 61 72 74 74 69 | 6d 65 29 2f 36 30 0d 33 |-startti|me)/60.3|
|00002230| 30 20 46 55 4e 43 54 49 | 4f 4e 20 74 6f 74 28 62 |0 FUNCTI|ON tot(b|
|00002240| 29 20 42 45 47 49 4e 20 | 6c 6f 63 61 6c 20 78 3a |) BEGIN |local x:|
|00002250| 3d 30 3b 20 46 4f 52 20 | 69 3a 3d 30 20 54 4f 20 |=0; FOR |i:=0 TO |
|00002260| 6c 45 4e 47 54 48 28 62 | 29 2d 31 20 44 4f 20 78 |lENGTH(b|)-1 DO x|
|00002270| 3a 3d 78 2b 62 5b 69 5d | 3b 20 78 20 45 4e 44 0d |:=x+b[i]|; x END.|
|00002280| 34 30 20 69 74 65 72 61 | 74 69 6f 6e 73 3d 31 30 |40 itera|tions=10|
|00002290| 30 30 0d 35 30 20 61 3d | 61 72 72 61 79 28 69 74 |00.50 a=|array(it|
|000022a0| 65 72 61 74 69 6f 6e 73 | 2c 20 32 35 29 0d 36 30 |erations|, 25).60|
|000022b0| 20 47 4f 53 55 42 20 30 | 30 39 30 20 2f 2f 73 75 | GOSUB 0|090 //su|
|000022c0| 6d 20 75 73 69 6e 67 20 | 4e 53 20 42 41 53 49 43 |m using |NS BASIC|
|000022d0| 20 6c 6f 6f 70 0d 37 30 | 20 47 4f 53 55 42 20 30 | loop.70| GOSUB 0|
|000022e0| 31 37 30 20 2f 2f 73 75 | 6d 20 75 73 69 6e 67 20 |170 //su|m using |
|000022f0| 66 75 6e 63 74 69 6f 6e | 0d 38 30 20 53 54 4f 50 |function|.80 STOP|
|00002300| 0d 39 30 20 52 45 4d 20 | 73 75 6d 20 75 73 69 6e |.90 REM |sum usin|
|00002310| 67 20 4e 53 20 42 41 53 | 49 43 20 6c 6f 6f 70 0d |g NS BAS|IC loop.|
|00002320| 31 30 30 20 74 6d 3d 74 | 69 63 6b 73 28 29 0d 31 |100 tm=t|icks().1|
|00002330| 31 30 20 78 3d 30 0d 31 | 32 30 20 46 4f 52 20 69 |10 x=0.1|20 FOR i|
|00002340| 3d 30 20 54 4f 20 6c 65 | 6e 67 74 68 28 61 29 2d |=0 TO le|ngth(a)-|
|00002350| 31 0d 31 33 30 20 78 3d | 78 2b 61 5b 69 5d 0d 31 |1.130 x=|x+a[i].1|
|00002360| 34 30 20 4e 45 58 54 20 | 69 0d 31 35 30 20 50 52 |40 NEXT |i.150 PR|
|00002370| 49 4e 54 20 22 4d 65 74 | 68 6f 64 20 31 3a 22 2c |INT "Met|hod 1:",|
|00002380| 20 75 3a 66 6e 73 28 74 | 6d 29 0d 31 36 30 20 52 | u:fns(t|m).160 R|
|00002390| 45 54 55 52 4e 0d 31 37 | 30 20 52 45 4d 20 73 75 |ETURN.17|0 REM su|
|000023a0| 6d 20 75 73 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |m using |function|
|000023b0| 0d 31 38 30 20 74 6d 3d | 54 49 43 4b 53 28 29 0d |.180 tm=|TICKS().|
|000023c0| 31 39 30 20 78 3d 75 3a | 74 6f 74 28 61 29 0d 32 |190 x=u:|tot(a).2|
|000023d0| 30 30 20 50 52 49 4e 54 | 20 22 4d 65 74 68 6f 64 |00 PRINT| "Method|
|000023e0| 20 32 3a 22 2c 20 75 3a | 66 6e 73 28 74 6d 29 0d | 2:", u:|fns(tm).|
|000023f0| 32 31 30 20 52 45 54 55 | 52 4e 0d 0d 0d 31 30 20 |210 RETU|RN...10 |
|00002400| 52 45 4d 20 47 41 55 47 | 45 20 45 78 61 6d 70 6c |REM GAUG|E Exampl|
|00002410| 65 0d 32 30 20 77 31 53 | 70 65 63 20 3d 20 7b 76 |e.20 w1S|pec = {v|
|00002420| 69 65 77 56 61 6c 75 65 | 3a 30 7d 0d 33 30 20 57 |iewValue|:0}.30 W|
|00002430| 49 4e 44 4f 57 20 77 31 | 2c 20 77 31 53 70 65 63 |INDOW w1|, w1Spec|
|00002440| 2c 20 22 47 41 55 47 45 | 22 0d 34 30 20 53 48 4f |, "GAUGE|".40 SHO|
|00002450| 57 20 77 31 0d 35 30 20 | 46 4f 52 20 69 20 3d 20 |W w1.50 |FOR i = |
|00002460| 31 20 54 4f 20 31 30 30 | 0d 36 30 20 77 31 53 70 |1 TO 100|.60 w1Sp|
|00002470| 65 63 2e 76 69 65 77 56 | 61 6c 75 65 20 3d 20 69 |ec.viewV|alue = i|
|00002480| 0d 37 30 20 57 50 52 49 | 4e 54 20 77 31 2c 20 22 |.70 WPRI|NT w1, "|
|00002490| 22 0d 38 30 20 4e 45 58 | 54 20 69 0d 0d 0d 31 30 |".80 NEX|T i...10|
|000024a0| 20 52 45 4d 20 47 45 54 | 20 45 78 61 6d 70 6c 65 | REM GET| Example|
|000024b0| 0d 32 30 20 50 52 49 4e | 54 20 22 54 68 65 20 66 |.20 PRIN|T "The f|
|000024c0| 69 72 73 74 20 35 20 66 | 69 72 73 74 20 6e 61 6d |irst 5 f|irst nam|
|000024d0| 65 73 20 6f 66 20 74 68 | 65 20 6e 61 6d 65 73 20 |es of th|e names |
|000024e0| 66 69 6c 65 20 77 69 6c | 6c 20 62 65 20 64 69 73 |file wil|l be dis|
|000024f0| 70 6c 61 79 65 64 2e 22 | 0d 33 30 20 4f 50 45 4e |played."|.30 OPEN|
|00002500| 20 43 48 2c 22 4e 61 6d | 65 73 22 0d 34 30 20 49 | CH,"Nam|es".40 I|
|00002510| 46 20 46 53 54 41 54 20 | 3c 3e 20 30 20 54 48 45 |F FSTAT |<> 0 THE|
|00002520| 4e 20 53 54 4f 50 0d 35 | 30 20 46 4f 52 20 69 20 |N STOP.5|0 FOR i |
|00002530| 3d 20 31 20 54 4f 20 35 | 0d 36 30 20 47 45 54 20 |= 1 TO 5|.60 GET |
|00002540| 43 48 2c 20 4e 61 6d 65 | 44 61 74 61 0d 37 30 20 |CH, Name|Data.70 |
|00002550| 49 46 20 46 53 54 41 54 | 20 3d 20 31 20 54 48 45 |IF FSTAT| = 1 THE|
|00002560| 4e 20 53 54 4f 50 0d 38 | 30 20 50 52 49 4e 54 20 |N STOP.8|0 PRINT |
|00002570| 4e 61 6d 65 44 61 74 61 | 2e 4e 61 6d 65 2e 66 69 |NameData|.Name.fi|
|00002580| 72 73 74 0d 39 30 20 4e | 45 58 54 20 69 0d 0d 0d |rst.90 N|EXT i...|
|00002590| 31 30 20 52 45 4d 20 47 | 45 54 47 4c 4f 42 41 4c |10 REM G|ETGLOBAL|
|000025a0| 53 20 45 78 61 6d 70 6c | 65 2e 20 53 68 6f 77 20 |S Exampl|e. Show |
|000025b0| 55 73 65 72 27 73 20 6e | 61 6d 65 20 61 6e 64 20 |User's n|ame and |
|000025c0| 61 64 64 72 65 73 73 0d | 32 30 20 50 52 49 4e 54 |address.|20 PRINT|
|000025d0| 20 47 45 54 47 4c 4f 42 | 41 4c 53 28 29 2e 75 73 | GETGLOB|ALS().us|
|000025e0| 65 72 43 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 2e |erConfig|uration.|
|000025f0| 63 6f 6d 70 61 6e 79 0d | 33 30 20 50 52 49 4e 54 |company.|30 PRINT|
|00002600| 20 47 45 54 47 4c 4f 42 | 41 4c 53 28 29 2e 75 73 | GETGLOB|ALS().us|
|00002610| 65 72 43 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 2e |erConfig|uration.|
|00002620| 61 64 64 72 65 73 73 0d | 34 30 20 50 52 49 4e 54 |address.|40 PRINT|
|00002630| 20 47 45 54 47 4c 4f 42 | 41 4c 53 28 29 2e 75 73 | GETGLOB|ALS().us|
|00002640| 65 72 43 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 2e |erConfig|uration.|
|00002650| 63 69 74 79 7a 69 70 0d | 0d 0d 31 30 20 52 45 4d |cityzip.|..10 REM|
|00002660| 20 47 45 54 52 4f 4f 54 | 28 29 20 45 78 61 6d 70 | GETROOT|() Examp|
|00002670| 6c 65 0d 32 30 20 72 6f | 6f 74 46 72 61 6d 65 20 |le.20 ro|otFrame |
|00002680| 3a 3d 20 67 65 74 72 6f | 6f 74 28 29 0d 33 30 20 |:= getro|ot().30 |
|00002690| 72 6f 6f 74 45 6c 65 6d | 65 6e 74 73 20 3a 3d 20 |rootElem|ents := |
|000026a0| 65 6c 65 6d 65 6e 74 73 | 28 72 6f 6f 74 46 72 61 |elements|(rootFra|
|000026b0| 6d 65 29 0d 34 30 20 6e | 75 6d 45 6c 65 6d 65 6e |me).40 n|umElemen|
|000026c0| 74 73 20 3d 20 6c 65 6e | 67 74 68 28 72 6f 6f 74 |ts = len|gth(root|
|000026d0| 45 6c 65 6d 65 6e 74 73 | 29 2d 31 0d 35 30 20 66 |Elements|)-1.50 f|
|000026e0| 6f 72 20 69 20 3d 20 30 | 20 74 6f 20 6e 75 6d 45 |or i = 0| to numE|
|000026f0| 6c 65 6d 65 6e 74 73 0d | 36 30 20 50 52 49 4e 54 |lements.|60 PRINT|
|00002700| 20 72 6f 6f 74 45 6c 65 | 6d 65 6e 74 73 5b 69 5d | rootEle|ments[i]|
|00002710| 0d 37 30 20 4e 45 58 54 | 20 69 0d 0d 0d 31 30 20 |.70 NEXT| i...10 |
|00002720| 52 45 4d 20 47 45 54 52 | 4f 4f 54 28 29 2e 66 75 |REM GETR|OOT().fu|
|00002730| 6e 63 74 69 6f 6e 73 20 | 45 78 61 6d 70 6c 65 0d |nctions |Example.|
|00002740| 32 30 20 72 6f 6f 74 46 | 72 61 6d 65 20 3a 3d 20 |20 rootF|rame := |
|00002750| 67 65 74 67 6c 6f 62 61 | 6c 73 28 29 2e 66 75 6e |getgloba|ls().fun|
|00002760| 63 74 69 6f 6e 73 0d 33 | 30 20 72 6f 6f 74 45 6c |ctions.3|0 rootEl|
|00002770| 65 6d 65 6e 74 73 20 3a | 3d 20 65 6c 65 6d 65 6e |ements :|= elemen|
|00002780| 74 73 28 72 6f 6f 74 46 | 72 61 6d 65 29 0d 34 30 |ts(rootF|rame).40|
|00002790| 20 6e 75 6d 45 6c 65 6d | 65 6e 74 73 20 3d 20 6c | numElem|ents = l|
|000027a0| 65 6e 67 74 68 28 72 6f | 6f 74 45 6c 65 6d 65 6e |ength(ro|otElemen|
|000027b0| 74 73 29 2d 31 0d 35 30 | 20 66 6f 72 20 69 20 3d |ts)-1.50| for i =|
|000027c0| 20 30 20 74 6f 20 6e 75 | 6d 45 6c 65 6d 65 6e 74 | 0 to nu|mElement|
|000027d0| 73 0d 36 30 20 50 52 49 | 4e 54 20 72 6f 6f 74 45 |s.60 PRI|NT rootE|
|000027e0| 6c 65 6d 65 6e 74 73 5b | 69 5d 0d 37 30 20 4e 45 |lements[|i].70 NE|
|000027f0| 58 54 20 69 0d 0d 0d 31 | 30 20 52 45 4d 20 47 4c |XT i...1|0 REM GL|
|00002800| 41 4e 43 45 20 45 78 61 | 6d 70 6c 65 0d 32 30 20 |ANCE Exa|mple.20 |
|00002810| 77 31 53 70 65 63 20 3d | 20 7b 74 65 78 74 3a 22 |w1Spec =| {text:"|
|00002820| 52 65 61 64 20 6d 65 20 | 71 75 69 63 6b 6c 79 22 |Read me |quickly"|
|00002830| 7d 0d 33 30 20 57 49 4e | 44 4f 57 20 77 31 2c 20 |}.30 WIN|DOW w1, |
|00002840| 77 31 53 70 65 63 2c 20 | 22 47 41 55 47 45 22 0d |w1Spec, |"GAUGE".|
|00002850| 34 30 20 53 48 4f 57 20 | 77 31 0d 0d 0d 31 30 20 |40 SHOW |w1...10 |
|00002860| 52 45 4d 20 47 4f 53 55 | 42 20 45 78 61 6d 70 6c |REM GOSU|B Exampl|
|00002870| 65 0d 32 30 20 50 52 49 | 4e 54 20 22 47 4f 53 55 |e.20 PRI|NT "GOSU|
|00002880| 42 20 52 6f 75 74 69 6e | 65 73 2d 22 0d 33 30 20 |B Routin|es-".30 |
|00002890| 47 4f 53 55 42 20 36 30 | 20 2f 2f 52 6f 75 74 69 |GOSUB 60| //Routi|
|000028a0| 6e 65 20 23 32 0d 34 30 | 20 50 52 49 4e 54 20 22 |ne #2.40| PRINT "|
|000028b0| 52 6f 75 74 69 6e 65 20 | 23 31 22 0d 35 30 20 45 |Routine |#1".50 E|
|000028c0| 4e 44 0d 36 30 20 52 45 | 4d 20 52 6f 75 74 69 6e |ND.60 RE|M Routin|
|000028d0| 65 20 23 32 0d 37 30 20 | 50 52 49 4e 54 20 22 52 |e #2.70 |PRINT "R|
|000028e0| 6f 75 74 69 6e 65 20 23 | 32 22 0d 38 30 20 52 45 |outine #|2".80 RE|
|000028f0| 54 55 52 4e 0d 0d 0d 31 | 30 20 52 45 4d 20 48 41 |TURN...1|0 REM HA|
|00002900| 53 53 4c 4f 54 20 45 78 | 61 6d 70 6c 65 0d 32 30 |SSLOT Ex|ample.20|
|00002910| 20 74 65 73 74 46 72 61 | 6d 65 20 3d 20 7b 6e 61 | testFra|me = {na|
|00002920| 6d 65 3a 20 22 46 72 65 | 64 22 2c 20 66 72 69 64 |me: "Fre|d", frid|
|00002930| 67 65 3a 20 4e 49 4c 7d | 0d 33 30 20 49 46 20 68 |ge: NIL}|.30 IF h|
|00002940| 61 73 73 6c 6f 74 28 74 | 65 73 74 46 72 61 6d 65 |asslot(t|estFrame|
|00002950| 2c 20 27 6e 61 6d 65 29 | 20 54 48 45 4e 20 50 52 |, 'name)| THEN PR|
|00002960| 49 4e 54 20 22 49 74 20 | 68 61 73 20 61 20 6e 61 |INT "It |has a na|
|00002970| 6d 65 22 0d 34 30 20 49 | 46 20 48 41 53 53 4c 4f |me".40 I|F HASSLO|
|00002980| 54 28 74 65 73 74 46 72 | 61 6d 65 2c 20 27 73 69 |T(testFr|ame, 'si|
|00002990| 7a 65 29 20 54 48 45 4e | 20 50 52 49 4e 54 20 22 |ze) THEN| PRINT "|
|000029a0| 49 74 20 68 61 73 20 61 | 20 73 69 7a 65 22 0d 35 |It has a| size".5|
|000029b0| 30 20 49 46 20 48 41 53 | 53 4c 4f 54 28 74 65 73 |0 IF HAS|SLOT(tes|
|000029c0| 74 46 72 61 6d 65 2c 20 | 27 66 72 69 64 67 65 29 |tFrame, |'fridge)|
|000029d0| 20 54 48 45 4e 20 50 52 | 49 4e 54 20 22 49 74 20 | THEN PR|INT "It |
|000029e0| 68 61 73 20 61 20 66 72 | 69 64 67 65 22 0d 0d 0d |has a fr|idge"...|
|000029f0| 31 30 20 52 45 4d 20 47 | 4f 54 4f 20 45 78 61 6d |10 REM G|OTO Exam|
|00002a00| 70 6c 65 0d 32 30 20 50 | 52 49 4e 54 20 22 50 6c |ple.20 P|RINT "Pl|
|00002a10| 65 61 73 65 20 65 6e 74 | 65 72 20 61 20 6e 75 6d |ease ent|er a num|
|00002a20| 62 65 72 2e 2e 2e 22 0d | 33 30 20 49 4e 50 55 54 |ber...".|30 INPUT|
|00002a30| 20 78 0d 34 30 20 49 46 | 20 78 20 3e 31 30 30 20 | x.40 IF| x >100 |
|00002a40| 54 48 45 4e 20 47 4f 54 | 4f 20 38 30 0d 35 30 20 |THEN GOT|O 80.50 |
|00002a50| 50 52 49 4e 54 20 22 54 | 68 65 20 6e 75 6d 62 65 |PRINT "T|he numbe|
|00002a60| 72 20 69 73 20 74 6f 6f | 20 73 6d 61 6c 6c 22 0d |r is too| small".|
|00002a70| 36 30 20 50 52 49 4e 54 | 20 22 50 6c 65 61 73 65 |60 PRINT| "Please|
|00002a80| 20 52 65 2d 65 6e 74 65 | 72 2e 2e 2e 22 0d 37 30 | Re-ente|r...".70|
|00002a90| 20 47 4f 54 4f 20 33 30 | 0d 38 30 20 45 4e 44 0d | GOTO 30|.80 END.|
|00002aa0| 0d 0d 31 30 20 52 45 4d | 20 48 49 44 45 20 45 78 |..10 REM| HIDE Ex|
|00002ab0| 61 6d 70 6c 65 0d 32 30 | 20 57 31 53 70 65 63 3d |ample.20| W1Spec=|
|00002ac0| 7b 56 69 65 77 42 6f 75 | 6e 64 73 3a 20 7b 4c 65 |{ViewBou|nds: {Le|
|00002ad0| 66 74 3a 20 31 30 2c 20 | 52 69 67 68 74 3a 20 31 |ft: 10, |Right: 1|
|00002ae0| 30 30 2c 20 54 6f 70 3a | 20 35 30 2c 20 42 6f 74 |00, Top:| 50, Bot|
|00002af0| 74 6f 6d 3a 20 31 30 30 | 7d 7d 0d 33 30 20 57 49 |tom: 100|}}.30 WI|
|00002b00| 4e 44 4f 57 20 57 69 6e | 31 2c 20 57 31 53 70 65 |NDOW Win|1, W1Spe|
|00002b10| 63 0d 34 30 20 57 49 4e | 44 4f 57 20 57 69 6e 32 |c.40 WIN|DOW Win2|
|00002b20| 0d 35 30 20 57 50 52 49 | 4e 54 20 57 69 6e 31 2c |.50 WPRI|NT Win1,|
|00002b30| 20 22 57 69 6e 64 6f 77 | 20 31 22 0d 36 30 20 57 | "Window| 1".60 W|
|00002b40| 50 52 49 4e 54 20 57 69 | 6e 32 2c 20 22 57 69 6e |PRINT Wi|n2, "Win|
|00002b50| 64 6f 77 20 32 22 0d 37 | 30 20 53 48 4f 57 20 57 |dow 2".7|0 SHOW W|
|00002b60| 69 6e 31 0d 38 30 20 53 | 48 4f 57 20 57 69 6e 32 |in1.80 S|HOW Win2|
|00002b70| 0d 39 30 20 57 41 49 54 | 0d 31 30 30 20 48 49 44 |.90 WAIT|.100 HID|
|00002b80| 45 20 57 69 6e 32 0d 31 | 31 30 20 53 48 4f 57 20 |E Win2.1|10 SHOW |
|00002b90| 57 69 6e 32 0d 31 32 30 | 20 48 49 44 45 0d 0d 0d |Win2.120| HIDE...|
|00002ba0| 31 30 20 52 45 4d 20 48 | 49 54 53 48 41 50 45 20 |10 REM H|ITSHAPE |
|00002bb0| 45 78 61 6d 70 6c 65 0d | 31 35 20 62 75 74 74 6f |Example.|15 butto|
|00002bc0| 6e 3d 6d 61 6b 65 4f 76 | 61 6c 28 31 30 2c 31 30 |n=makeOv|al(10,10|
|00002bd0| 2c 34 30 2c 34 30 29 0d | 32 30 20 77 73 3d 7b 67 |,40,40).|20 ws={g|
|00002be0| 6f 74 6f 3a 20 31 30 30 | 2c 20 64 72 61 77 69 6e |oto: 100|, drawin|
|00002bf0| 67 3a 20 62 75 74 74 6f | 6e 7d 0d 33 30 20 77 69 |g: butto|n}.30 wi|
|00002c00| 6e 64 6f 77 20 77 31 2c | 77 73 0d 35 30 20 73 68 |ndow w1,|ws.50 sh|
|00002c10| 6f 77 20 77 31 0d 37 30 | 20 77 61 69 74 20 31 30 |ow w1.70| wait 10|
|00002c20| 30 30 0d 38 30 20 47 4f | 54 4f 20 37 30 0d 31 30 |00.80 GO|TO 70.10|
|00002c30| 30 20 72 65 6d 20 70 72 | 6f 63 65 73 73 20 75 73 |0 rem pr|ocess us|
|00002c40| 65 72 20 74 61 70 0d 31 | 31 30 20 49 46 20 68 69 |er tap.1|10 IF hi|
|00002c50| 74 73 68 61 70 65 28 62 | 75 74 74 6f 6e 2c 20 77 |tshape(b|utton, w|
|00002c60| 73 2e 66 69 72 73 74 58 | 2c 20 77 73 2e 66 69 72 |s.firstX|, ws.fir|
|00002c70| 73 74 59 29 54 48 45 4e | 20 50 52 49 4e 54 20 22 |stY)THEN| PRINT "|
|00002c80| 59 6f 75 20 74 61 70 70 | 65 64 20 69 6e 20 74 68 |You tapp|ed in th|
|00002c90| 65 20 62 75 74 74 6f 6e | 21 22 20 45 4c 53 45 20 |e button|!" ELSE |
|00002ca0| 50 52 49 4e 54 20 22 59 | 6f 75 20 6d 69 73 73 65 |PRINT "Y|ou misse|
|00002cb0| 64 20 74 68 65 20 62 75 | 74 74 6f 6e 21 22 0d 0d |d the bu|tton!"..|
|00002cc0| 0d 31 30 20 52 45 4d 20 | 48 4f 55 52 4d 49 4e 55 |.10 REM |HOURMINU|
|00002cd0| 54 45 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 43 75 |TE Examp|le.20 Cu|
|00002ce0| 72 54 69 6d 65 20 3d 20 | 54 49 4d 45 28 29 0d 33 |rTime = |TIME().3|
|00002cf0| 30 20 50 52 49 4e 54 20 | 48 4f 55 52 4d 49 4e 55 |0 PRINT |HOURMINU|
|00002d00| 54 45 28 43 75 72 54 69 | 6d 65 29 0d 0d 0d 31 30 |TE(CurTi|me)...10|
|00002d10| 20 52 45 4d 20 48 57 49 | 4e 50 55 54 20 45 78 61 | REM HWI|NPUT Exa|
|00002d20| 6d 70 6c 65 0d 31 35 20 | 50 6f 70 55 70 20 3d 20 |mple.15 |PopUp = |
|00002d30| 5b 22 46 6f 72 64 22 2c | 20 22 41 72 74 68 75 72 |["Ford",| "Arthur|
|00002d40| 22 2c 20 22 54 72 69 6c | 6c 69 61 6e 22 2c 20 22 |", "Tril|lian", "|
|00002d50| 5a 61 70 68 6f 64 22 5d | 0d 32 30 20 48 57 49 4e |Zaphod"]|.20 HWIN|
|00002d60| 50 55 54 20 4e 61 6d 65 | 2c 22 50 6c 65 61 73 65 |PUT Name|,"Please|
|00002d70| 20 65 6e 74 65 72 20 79 | 6f 75 72 20 4e 61 6d 65 | enter y|our Name|
|00002d80| 2e 2e 2e 22 2c 50 6f 70 | 55 70 0d 33 30 20 50 52 |...",Pop|Up.30 PR|
|00002d90| 49 4e 54 20 22 48 65 6c | 6c 6f 20 22 20 3b 20 4e |INT "Hel|lo " ; N|
|00002da0| 61 6d 65 0d 0d 0d 31 30 | 20 52 45 4d 20 49 46 20 |ame...10| REM IF |
|00002db0| 54 48 45 4e 20 45 4c 53 | 45 20 45 78 61 6d 70 6c |THEN ELS|E Exampl|
|00002dc0| 65 0d 32 30 20 50 52 49 | 4e 54 20 22 50 6c 65 61 |e.20 PRI|NT "Plea|
|00002dd0| 73 65 20 45 6e 74 65 72 | 20 61 20 4e 75 6d 62 65 |se Enter| a Numbe|
|00002de0| 72 2e 22 0d 33 30 20 49 | 4e 50 55 54 20 4e 75 6d |r.".30 I|NPUT Num|
|00002df0| 62 65 72 0d 34 30 20 49 | 46 20 4e 75 6d 62 65 72 |ber.40 I|F Number|
|00002e00| 3e 3d 31 30 30 20 54 48 | 45 4e 20 50 52 49 4e 54 |>=100 TH|EN PRINT|
|00002e10| 20 22 4e 75 6d 62 65 72 | 20 69 73 20 67 72 65 61 | "Number| is grea|
|00002e20| 74 65 72 20 74 68 61 6e | 20 6f 72 20 65 71 75 61 |ter than| or equa|
|00002e30| 6c 20 74 6f 20 31 30 30 | 22 20 45 4c 53 45 20 50 |l to 100|" ELSE P|
|00002e40| 52 49 4e 54 20 22 4e 75 | 6d 62 65 72 20 69 73 20 |RINT "Nu|mber is |
|00002e50| 6c 65 73 73 20 74 68 61 | 6e 20 31 30 30 22 0d 35 |less tha|n 100".5|
|00002e60| 30 20 49 46 20 4e 75 6d | 62 65 72 3d 30 20 54 48 |0 IF Num|ber=0 TH|
|00002e70| 45 4e 20 50 52 49 4e 54 | 20 22 4e 75 6d 62 65 72 |EN PRINT| "Number|
|00002e80| 20 69 73 20 65 71 75 61 | 6c 20 74 6f 20 7a 65 72 | is equa|l to zer|
|00002e90| 6f 22 0d 0d 0d 31 30 20 | 52 45 4d 20 49 4e 50 55 |o"...10 |REM INPU|
|00002ea0| 54 20 45 78 61 6d 70 6c | 65 0d 32 30 20 50 52 49 |T Exampl|e.20 PRI|
|00002eb0| 4e 54 20 22 50 6c 65 61 | 73 65 20 65 6e 74 65 72 |NT "Plea|se enter|
|00002ec0| 20 74 77 6f 20 74 68 69 | 6e 67 73 2e 22 0d 33 30 | two thi|ngs.".30|
|00002ed0| 20 49 4e 50 55 54 20 61 | 2c 62 0d 34 30 20 50 52 | INPUT a|,b.40 PR|
|00002ee0| 49 4e 54 20 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |INT "Ple|ase ente|
|00002ef0| 72 20 6f 6e 65 20 6d 6f | 72 65 20 74 68 69 6e 67 |r one mo|re thing|
|00002f00| 2e 22 0d 35 30 20 49 4e | 50 55 54 20 63 24 0d 36 |.".50 IN|PUT c$.6|
|00002f10| 30 20 50 52 49 4e 54 20 | 22 59 6f 75 20 74 79 70 |0 PRINT |"You typ|
|00002f20| 65 64 20 69 6e 2e 2e 2e | 22 2c 20 61 3b 20 22 20 |ed in...|", a; " |
|00002f30| 26 20 22 3b 20 62 3b 20 | 22 20 26 20 22 3b 20 63 |& "; b; |" & "; c|
|00002f40| 24 0d 0d 0d 31 30 20 52 | 45 4d 20 49 4e 54 45 52 |$...10 R|EM INTER|
|00002f50| 4e 20 45 78 61 6d 70 6c | 65 0d 32 30 20 58 3d 7b |N Exampl|e.20 X={|
|00002f60| 61 3a 20 31 2c 20 62 3a | 32 2c 20 63 3a 33 7d 0d |a: 1, b:|2, c:3}.|
|00002f70| 33 30 20 59 3d 69 6e 74 | 65 72 6e 28 22 62 22 29 |30 Y=int|ern("b")|
|00002f80| 0d 34 30 20 50 52 49 4e | 54 20 78 2e 28 79 29 0d |.40 PRIN|T x.(y).|
|00002f90| 35 30 20 5a 3d 65 6c 65 | 6d 65 6e 74 73 28 78 29 |50 Z=ele|ments(x)|
|00002fa0| 0d 36 30 20 66 6f 72 20 | 69 3d 30 20 74 6f 20 6c |.60 for |i=0 to l|
|00002fb0| 65 6e 67 74 68 28 5a 29 | 2d 31 0d 37 30 20 50 52 |ength(Z)|-1.70 PR|
|00002fc0| 49 4e 54 20 5a 5b 69 5d | 2c 20 78 2e 28 69 6e 74 |INT Z[i]|, x.(int|
|00002fd0| 65 72 6e 28 5a 5b 69 5d | 29 29 0d 38 30 20 4e 45 |ern(Z[i]|)).80 NE|
|00002fe0| 58 54 20 69 20 0d 0d 0d | 31 30 20 52 45 4d 20 4c |XT i ...|10 REM L|
|00002ff0| 41 42 45 4c 49 4e 50 55 | 54 20 45 78 61 6d 70 6c |ABELINPU|T Exampl|
|00003000| 65 0d 32 30 20 77 31 53 | 70 65 63 20 3d 20 7b 6c |e.20 w1S|pec = {l|
|00003010| 61 62 65 6c 43 6f 6d 6d | 61 6e 64 73 3a 5b 22 6f |abelComm|ands:["o|
|00003020| 6e 65 22 2c 20 22 32 22 | 2c 20 22 74 68 72 65 65 |ne", "2"|, "three|
|00003030| 22 5d 7d 0d 33 30 20 57 | 49 4e 44 4f 57 20 77 31 |"]}.30 W|INDOW w1|
|00003040| 2c 20 77 31 53 70 65 63 | 2c 20 22 4c 41 42 45 4c |, w1Spec|, "LABEL|
|00003050| 49 4e 50 55 54 22 0d 34 | 30 20 53 48 4f 57 20 77 |INPUT".4|0 SHOW w|
|00003060| 31 0d 0d 0d 31 30 20 52 | 45 4d 20 4c 41 42 45 4c |1...10 R|EM LABEL|
|00003070| 50 49 43 4b 45 52 20 45 | 78 61 6d 70 6c 65 0d 32 |PICKER E|xample.2|
|00003080| 30 20 77 31 53 70 65 63 | 20 3d 20 7b 6c 61 62 65 |0 w1Spec| = {labe|
|00003090| 6c 43 6f 6d 6d 61 6e 64 | 73 3a 5b 22 6f 6e 65 22 |lCommand|s:["one"|
|000030a0| 2c 20 22 74 77 6f 22 2c | 20 22 74 68 72 65 65 22 |, "two",| "three"|
|000030b0| 5d 7d 0d 33 30 20 57 49 | 4e 44 4f 57 20 77 31 2c |]}.30 WI|NDOW w1,|
|000030c0| 20 77 31 53 70 65 63 2c | 20 22 4c 41 42 45 4c 50 | w1Spec,| "LABELP|
|000030d0| 49 43 4b 45 52 22 0d 34 | 30 20 53 48 4f 57 20 77 |ICKER".4|0 SHOW w|
|000030e0| 31 0d 0d 0d 31 30 20 52 | 45 4d 20 4c 45 4e 47 54 |1...10 R|EM LENGT|
|000030f0| 48 20 45 78 61 6d 70 6c | 65 0d 32 30 20 61 20 3d |H Exampl|e.20 a =|
|00003100| 20 5b 31 2c 32 2c 22 54 | 68 72 65 65 22 2c 20 34 | [1,2,"T|hree", 4|
|00003110| 5d 0d 33 30 20 50 52 49 | 4e 54 20 22 61 20 68 61 |].30 PRI|NT "a ha|
|00003120| 73 20 22 3b 20 4c 45 4e | 47 54 48 28 61 29 3b 20 |s "; LEN|GTH(a); |
|00003130| 22 20 65 6c 65 6d 65 6e | 74 73 2e 22 0d 0d 0d 31 |" elemen|ts."...1|
|00003140| 30 20 52 45 4d 20 4c 45 | 54 20 45 78 61 6d 70 6c |0 REM LE|T Exampl|
|00003150| 65 0d 32 30 20 50 52 49 | 4e 54 20 22 57 68 61 74 |e.20 PRI|NT "What|
|00003160| 20 69 73 20 79 6f 75 72 | 20 4e 61 6d 65 3f 22 0d | is your| Name?".|
|00003170| 33 30 20 49 4e 50 55 54 | 20 4e 61 6d 65 24 0d 34 |30 INPUT| Name$.4|
|00003180| 30 20 50 52 49 4e 54 20 | 22 57 68 61 74 20 69 73 |0 PRINT |"What is|
|00003190| 20 79 6f 75 72 20 61 67 | 65 3f 22 0d 35 30 20 49 | your ag|e?".50 I|
|000031a0| 4e 50 55 54 20 61 67 65 | 0d 36 30 20 4c 45 54 20 |NPUT age|.60 LET |
|000031b0| 61 67 65 20 3d 20 61 67 | 65 20 2b 20 31 30 0d 37 |age = ag|e + 10.7|
|000031c0| 30 20 50 52 49 4e 54 20 | 4e 61 6d 65 24 3b 20 22 |0 PRINT |Name$; "|
|000031d0| 2e 2e 2e 22 3b 22 49 6e | 20 31 30 20 79 65 61 72 |...";"In| 10 year|
|000031e0| 73 20 79 6f 75 72 20 61 | 67 65 20 77 69 6c 6c 20 |s your a|ge will |
|000031f0| 62 65 2e 2e 2e 22 3b 61 | 67 65 0d 0d 0d 31 30 20 |be...";a|ge...10 |
|00003200| 52 45 4d 20 4d 4f 4e 54 | 48 20 45 78 61 6d 70 6c |REM MONT|H Exampl|
|00003210| 65 0d 32 30 20 77 31 53 | 70 65 63 20 3d 20 7b 7d |e.20 w1S|pec = {}|
|00003220| 0d 33 30 20 57 49 4e 44 | 4f 57 20 77 31 2c 20 77 |.30 WIND|OW w1, w|
|00003230| 31 53 70 65 63 2c 20 22 | 4d 4f 4e 54 48 22 0d 34 |1Spec, "|MONTH".4|
|00003240| 30 20 53 48 4f 57 20 77 | 31 0d 0d 31 30 20 52 45 |0 SHOW w|1..10 RE|
|00003250| 4d 20 4d 4f 44 20 45 78 | 61 6d 70 6c 65 0d 32 30 |M MOD Ex|ample.20|
|00003260| 20 52 45 4d 20 54 68 69 | 73 20 70 72 6f 67 72 61 | REM Thi|s progra|
|00003270| 6d 20 74 61 6b 65 73 20 | 74 77 6f 20 6e 75 6d 62 |m takes |two numb|
|00003280| 65 72 73 20 61 6e 64 20 | 63 6f 6d 70 75 74 65 73 |ers and |computes|
|00003290| 20 74 68 65 69 72 20 6d | 6f 64 75 6c 75 73 2e 0d | their m|odulus..|
|000032a0| 33 30 20 50 52 49 4e 54 | 20 22 50 6c 65 61 73 65 |30 PRINT| "Please|
|000032b0| 20 65 6e 74 65 72 20 74 | 77 6f 20 6e 75 6d 62 65 | enter t|wo numbe|
|000032c0| 72 73 2e 22 0d 34 30 20 | 49 4e 50 55 54 20 4e 75 |rs.".40 |INPUT Nu|
|000032d0| 6d 62 65 72 31 2c 4e 75 | 6d 62 65 72 32 0d 35 30 |mber1,Nu|mber2.50|
|000032e0| 20 52 65 73 75 6c 74 20 | 3d 20 4e 75 6d 62 65 72 | Result |= Number|
|000032f0| 31 20 4d 4f 44 20 4e 75 | 6d 62 65 72 32 0d 36 30 |1 MOD Nu|mber2.60|
|00003300| 20 50 52 49 4e 54 20 22 | 54 68 65 20 6d 6f 64 75 | PRINT "|The modu|
|00003310| 6c 75 73 20 6f 66 20 22 | 20 3b 20 4e 75 6d 62 65 |lus of "| ; Numbe|
|00003320| 72 31 20 3b 20 22 20 61 | 6e 64 20 22 20 3b 20 4e |r1 ; " a|nd " ; N|
|00003330| 75 6d 62 65 72 32 3b 20 | 22 20 69 73 20 22 20 3b |umber2; |" is " ;|
|00003340| 20 52 65 73 75 6c 74 0d | 0d 0d 31 30 20 52 45 4d | Result.|..10 REM|
|00003350| 20 4d 49 4e 20 45 78 61 | 6d 70 6c 65 0d 32 30 20 | MIN Exa|mple.20 |
|00003360| 50 52 49 4e 54 20 22 50 | 6c 65 61 73 65 20 65 6e |PRINT "P|lease en|
|00003370| 74 65 72 20 61 20 6e 75 | 6d 62 65 72 22 0d 33 30 |ter a nu|mber".30|
|00003380| 20 49 4e 50 55 54 20 4e | 75 6d 62 65 72 31 0d 34 | INPUT N|umber1.4|
|00003390| 30 20 50 52 49 4e 54 20 | 22 50 6c 65 61 73 65 20 |0 PRINT |"Please |
|000033a0| 65 6e 74 65 72 20 61 20 | 73 65 63 6f 6e 64 20 6e |enter a |second n|
|000033b0| 75 6d 62 65 72 22 0d 35 | 30 20 49 4e 50 55 54 20 |umber".5|0 INPUT |
|000033c0| 4e 75 6d 62 65 72 32 0d | 36 30 20 50 52 49 4e 54 |Number2.|60 PRINT|
|000033d0| 20 22 54 68 65 20 73 6d | 61 6c 6c 65 73 74 20 6e | "The sm|allest n|
|000033e0| 75 6d 62 65 72 20 65 6e | 74 65 72 65 64 20 77 61 |umber en|tered wa|
|000033f0| 73 20 22 20 3b 20 4d 49 | 4e 28 4e 75 6d 62 65 72 |s " ; MI|N(Number|
|00003400| 31 2c 4e 75 6d 62 65 72 | 32 29 0d 0d 0d 31 30 20 |1,Number|2)...10 |
|00003410| 52 45 4d 20 4d 41 58 20 | 45 78 61 6d 70 6c 65 0d |REM MAX |Example.|
|00003420| 32 30 20 50 52 49 4e 54 | 20 22 50 6c 65 61 73 65 |20 PRINT| "Please|
|00003430| 20 65 6e 74 65 72 20 61 | 20 6e 75 6d 62 65 72 22 | enter a| number"|
|00003440| 0d 33 30 20 49 4e 50 55 | 54 20 4e 75 6d 62 65 72 |.30 INPU|T Number|
|00003450| 31 0d 34 30 20 50 52 49 | 4e 54 20 22 50 6c 65 61 |1.40 PRI|NT "Plea|
|00003460| 73 65 20 65 6e 74 65 72 | 20 61 20 73 65 63 6f 6e |se enter| a secon|
|00003470| 64 20 6e 75 6d 62 65 72 | 22 0d 35 30 20 49 4e 50 |d number|".50 INP|
|00003480| 55 54 20 4e 75 6d 62 65 | 72 32 0d 36 30 20 50 52 |UT Numbe|r2.60 PR|
|00003490| 49 4e 54 20 22 54 68 65 | 20 6c 61 72 67 65 73 74 |INT "The| largest|
|000034a0| 20 6e 75 6d 62 65 72 20 | 65 6e 74 65 72 65 64 20 | number |entered |
|000034b0| 77 61 73 20 22 20 3b 20 | 4d 41 58 28 4e 75 6d 62 |was " ; |MAX(Numb|
|000034c0| 65 72 31 2c 4e 75 6d 62 | 65 72 32 29 0d 0d 0d 31 |er1,Numb|er2)...1|
|000034d0| 30 20 52 45 4d 20 4c 4f | 47 20 45 78 61 6d 70 6c |0 REM LO|G Exampl|
|000034e0| 65 0d 32 30 20 50 52 49 | 4e 54 20 22 50 6c 65 61 |e.20 PRI|NT "Plea|
|000034f0| 73 65 20 65 6e 74 65 72 | 20 61 20 6e 75 6d 62 65 |se enter| a numbe|
|00003500| 72 22 0d 33 30 20 49 4e | 50 55 54 20 4e 75 6d 62 |r".30 IN|PUT Numb|
|00003510| 65 72 0d 34 30 20 50 52 | 49 4e 54 20 22 54 68 65 |er.40 PR|INT "The|
|00003520| 20 4c 4f 47 20 6f 66 20 | 74 68 65 20 6e 75 6d 62 | LOG of |the numb|
|00003530| 65 72 20 65 6e 74 65 72 | 65 64 20 69 73 20 22 3b |er enter|ed is ";|
|00003540| 20 4c 4f 47 28 4e 75 6d | 62 65 72 29 0d 0d 0d 31 | LOG(Num|ber)...1|
|00003550| 30 20 52 45 4d 20 4e 55 | 4d 42 45 52 53 54 52 20 |0 REM NU|MBERSTR |
|00003560| 45 78 61 6d 70 6c 65 0d | 32 30 20 4e 75 6d 62 65 |Example.|20 Numbe|
|00003570| 72 20 3d 20 31 32 37 2e | 39 32 34 0d 33 30 20 50 |r = 127.|924.30 P|
|00003580| 52 49 4e 54 20 22 4e 75 | 6d 62 65 72 20 69 73 20 |RINT "Nu|mber is |
|00003590| 22 20 3b 20 4e 75 6d 62 | 65 72 0d 34 30 20 50 52 |" ; Numb|er.40 PR|
|000035a0| 49 4e 54 20 22 53 74 72 | 69 6e 67 20 72 65 70 72 |INT "Str|ing repr|
|000035b0| 65 73 65 6e 74 61 74 69 | 6f 6e 20 69 73 20 22 3b |esentati|on is ";|
|000035c0| 20 4e 55 4d 42 45 52 53 | 54 52 28 4e 75 6d 62 65 | NUMBERS|TR(Numbe|
|000035d0| 72 29 0d 0d 0d 31 30 20 | 52 45 4d 20 4f 4e 20 47 |r)...10 |REM ON G|
|000035e0| 4f 53 55 42 2f 47 4f 54 | 4f 20 45 78 61 6d 70 6c |OSUB/GOT|O Exampl|
|000035f0| 65 0d 32 30 20 50 52 49 | 4e 54 20 22 50 6c 65 61 |e.20 PRI|NT "Plea|
|00003600| 73 65 20 65 6e 74 65 72 | 20 61 20 76 61 6c 75 65 |se enter| a value|
|00003610| 20 66 6f 72 20 65 78 70 | 72 65 73 73 69 6f 6e 2e | for exp|ression.|
|00003620| 2e 2e 22 0d 33 30 20 49 | 4e 50 55 54 20 45 78 70 |..".30 I|NPUT Exp|
|00003630| 72 65 73 73 69 6f 6e 0d | 34 30 20 4f 4e 20 45 78 |ression.|40 ON Ex|
|00003640| 70 72 65 73 73 69 6f 6e | 20 47 4f 54 4f 20 35 30 |pression| GOTO 50|
|00003650| 2c 20 37 30 2c 20 39 30 | 0d 35 30 20 50 52 49 4e |, 70, 90|.50 PRIN|
|00003660| 54 20 22 52 6f 75 74 69 | 6e 65 20 23 31 22 0d 36 |T "Routi|ne #1".6|
|00003670| 30 20 45 4e 44 0d 37 30 | 20 50 52 49 4e 54 20 22 |0 END.70| PRINT "|
|00003680| 52 6f 75 74 69 6e 65 20 | 23 32 22 0d 38 30 20 45 |Routine |#2".80 E|
|00003690| 4e 44 0d 39 30 20 50 52 | 49 4e 54 20 22 52 6f 75 |ND.90 PR|INT "Rou|
|000036a0| 74 69 6e 65 20 23 33 22 | 0d 0d 0d 31 30 20 52 45 |tine #3"|...10 RE|
|000036b0| 4d 20 4f 50 45 4e 20 66 | 69 6c 65 20 45 78 61 6d |M OPEN f|ile Exam|
|000036c0| 70 6c 65 0d 32 30 20 50 | 52 49 4e 54 20 22 41 20 |ple.20 P|RINT "A |
|000036d0| 66 69 6c 65 20 77 69 6c | 6c 20 62 65 20 6f 70 65 |file wil|l be ope|
|000036e0| 6e 65 64 20 66 6f 72 20 | 64 61 74 61 20 74 72 61 |ned for |data tra|
|000036f0| 6e 73 66 65 72 2e 22 0d | 33 30 20 4f 50 45 4e 20 |nsfer.".|30 OPEN |
|00003700| 43 48 2c 22 4e 61 6d 65 | 73 22 0d 34 30 20 49 46 |CH,"Name|s".40 IF|
|00003710| 20 46 53 54 41 54 20 3c | 3e 20 30 20 54 48 45 4e | FSTAT <|> 0 THEN|
|00003720| 20 53 54 4f 50 0d 35 30 | 20 47 45 54 20 43 48 2c | STOP.50| GET CH,|
|00003730| 46 49 52 53 54 4e 41 4d | 45 0d 36 30 20 50 52 49 |FIRSTNAM|E.60 PRI|
|00003740| 4e 54 20 46 49 52 53 54 | 4e 41 4d 45 2e 4e 61 6d |NT FIRST|NAME.Nam|
|00003750| 65 2e 6c 61 73 74 0d 0d | 0d 31 30 20 52 45 4d 20 |e.last..|.10 REM |
|00003760| 4f 52 44 20 45 78 61 6d | 70 6c 65 0d 32 30 20 50 |ORD Exam|ple.20 P|
|00003770| 52 49 4e 54 20 22 50 6c | 65 61 73 65 20 65 6e 74 |RINT "Pl|ease ent|
|00003780| 65 72 20 61 20 73 74 72 | 69 6e 67 22 0d 33 30 20 |er a str|ing".30 |
|00003790| 49 4e 50 55 54 20 58 0d | 36 30 20 50 52 49 4e 54 |INPUT X.|60 PRINT|
|000037a0| 20 22 54 68 65 20 4f 52 | 44 20 6f 66 20 74 68 65 | "The OR|D of the|
|000037b0| 20 66 69 72 73 74 20 63 | 68 61 72 61 63 74 65 72 | first c|haracter|
|000037c0| 20 6f 66 20 58 20 69 73 | 20 22 3b 4f 52 44 28 58 | of X is| ";ORD(X|
|000037d0| 5b 30 5d 29 0d 0d 0d 31 | 30 20 52 45 4d 20 50 41 |[0])...1|0 REM PA|
|000037e0| 52 41 47 52 41 50 48 20 | 45 78 61 6d 70 6c 65 0d |RAGRAPH |Example.|
|000037f0| 32 30 20 77 31 53 70 65 | 63 20 3d 20 7b 7d 0d 33 |20 w1Spe|c = {}.3|
|00003800| 30 20 57 49 4e 44 4f 57 | 20 77 31 2c 20 77 31 53 |0 WINDOW| w1, w1S|
|00003810| 70 65 63 2c 20 22 50 41 | 52 41 47 52 41 50 48 22 |pec, "PA|RAGRAPH"|
|00003820| 0d 34 30 20 53 48 4f 57 | 20 77 31 0d 0d 0d 31 30 |.40 SHOW| w1...10|
|00003830| 20 52 45 4d 20 50 49 43 | 4b 45 52 20 45 78 61 6d | REM PIC|KER Exam|
|00003840| 70 6c 65 0d 32 30 20 77 | 31 53 70 65 63 20 3d 20 |ple.20 w|1Spec = |
|00003850| 7b 47 4f 54 4f 3a 20 32 | 30 30 2c 20 70 69 63 6b |{GOTO: 2|00, pick|
|00003860| 49 74 65 6d 73 3a 20 5b | 22 61 22 2c 22 62 22 2c |Items: [|"a","b",|
|00003870| 22 63 22 5d 7d 0d 33 30 | 20 57 49 4e 44 4f 57 20 |"c"]}.30| WINDOW |
|00003880| 77 31 2c 20 77 31 53 70 | 65 63 2c 20 22 50 49 43 |w1, w1Sp|ec, "PIC|
|00003890| 4b 45 52 22 0d 34 30 20 | 53 48 4f 57 20 77 31 0d |KER".40 |SHOW w1.|
|000038a0| 35 30 20 57 41 49 54 20 | 31 30 30 30 0d 36 30 20 |50 WAIT |1000.60 |
|000038b0| 45 4e 44 0d 32 30 30 20 | 50 52 49 4e 54 20 22 59 |END.200 |PRINT "Y|
|000038c0| 6f 75 20 70 69 63 6b 65 | 64 20 69 74 65 6d 3a 20 |ou picke|d item: |
|000038d0| 22 3b 20 77 31 53 70 65 | 63 2e 76 69 65 77 56 61 |"; w1Spe|c.viewVa|
|000038e0| 6c 75 65 0d 0d 0d 31 30 | 20 52 45 4d 20 50 4f 57 |lue...10| REM POW|
|000038f0| 20 45 78 61 6d 70 6c 65 | 0d 32 30 20 50 52 49 4e | Example|.20 PRIN|
|00003900| 54 20 22 50 6c 65 61 73 | 65 20 65 6e 74 65 72 20 |T "Pleas|e enter |
|00003910| 61 20 6e 75 6d 62 65 72 | 22 0d 33 30 20 49 4e 50 |a number|".30 INP|
|00003920| 55 54 20 58 0d 34 30 20 | 50 52 49 4e 54 20 22 50 |UT X.40 |PRINT "P|
|00003930| 6c 65 61 73 65 20 65 6e | 74 65 72 20 70 6f 77 65 |lease en|ter powe|
|00003940| 72 20 74 6f 20 72 61 69 | 73 65 20 74 6f 22 0d 35 |r to rai|se to".5|
|00003950| 30 20 49 4e 50 55 54 20 | 59 0d 36 30 20 50 52 49 |0 INPUT |Y.60 PRI|
|00003960| 4e 54 20 22 58 20 74 6f | 20 74 68 65 20 70 6f 77 |NT "X to| the pow|
|00003970| 65 72 20 59 20 69 73 20 | 22 3b 50 4f 57 28 58 2c |er Y is |";POW(X,|
|00003980| 59 29 0d 0d 0d 31 30 20 | 52 45 4d 20 50 4f 49 4e |Y)...10 |REM POIN|
|00003990| 54 53 54 4f 41 52 52 41 | 59 20 45 78 61 6d 70 6c |TSTOARRA|Y Exampl|
|000039a0| 65 0d 35 30 20 64 72 61 | 77 53 70 65 63 20 3a 3d |e.50 dra|wSpec :=|
|000039b0| 20 7b 76 69 65 77 42 6f | 75 6e 64 73 3a 20 7b 6c | {viewBo|unds: {l|
|000039c0| 65 66 74 3a 20 31 2c 20 | 74 6f 70 3a 20 31 2c 20 |eft: 1, |top: 1, |
|000039d0| 72 69 67 68 74 3a 20 32 | 33 39 2c 20 62 6f 74 74 |right: 2|39, bott|
|000039e0| 6f 6d 3a 20 33 31 38 7d | 2c 20 76 69 65 77 46 6c |om: 318}|, viewFl|
|000039f0| 61 67 73 3a 20 56 53 48 | 41 50 45 53 41 4c 4c 4f |ags: VSH|APESALLO|
|00003a00| 57 45 44 20 2b 20 56 43 | 4c 49 43 4b 41 42 4c 45 |WED + VC|LICKABLE|
|00003a10| 20 2b 20 56 47 45 53 54 | 55 52 45 53 41 4c 4c 4f | + VGEST|URESALLO|
|00003a20| 57 45 44 7d 0d 36 30 20 | 57 49 4e 44 4f 57 20 64 |WED}.60 |WINDOW d|
|00003a30| 72 61 77 57 69 6e 2c 20 | 64 72 61 77 53 70 65 63 |rawWin, |drawSpec|
|00003a40| 2c 20 22 44 52 41 57 22 | 0d 37 30 20 73 70 65 63 |, "DRAW"|.70 spec|
|00003a50| 20 3a 3d 20 7b 47 4f 54 | 4f 3a 20 32 30 30 2c 20 | := {GOT|O: 200, |
|00003a60| 74 65 78 74 3a 20 22 58 | 22 2c 20 76 69 65 77 42 |text: "X|", viewB|
|00003a70| 6f 75 6e 64 73 3a 20 7b | 6c 65 66 74 3a 20 32 32 |ounds: {|left: 22|
|00003a80| 32 2c 20 74 6f 70 3a 20 | 33 30 30 2c 20 72 69 67 |2, top: |300, rig|
|00003a90| 68 74 3a 20 32 33 34 2c | 20 62 6f 74 74 6f 6d 3a |ht: 234,| bottom:|
|00003aa0| 20 33 31 34 7d 2c 20 76 | 69 65 77 46 6f 6e 74 3a | 314}, v|iewFont:|
|00003ab0| 20 7b 66 61 6d 69 6c 79 | 3a 20 27 67 65 6e 65 76 | {family|: 'genev|
|00003ac0| 61 2c 20 66 61 63 65 3a | 20 31 2c 20 73 69 7a 65 |a, face:| 1, size|
|00003ad0| 3a 31 32 7d 2c 20 76 69 | 65 77 4a 75 73 74 69 66 |:12}, vi|ewJustif|
|00003ae0| 79 3a 20 32 2c 20 76 69 | 65 77 46 6f 72 6d 61 74 |y: 2, vi|ewFormat|
|00003af0| 3a 20 34 2a 76 66 52 6f | 75 6e 64 20 2b 20 32 2a |: 4*vfRo|und + 2*|
|00003b00| 76 66 50 65 6e 20 2b 20 | 76 66 46 72 61 6d 65 42 |vfPen + |vfFrameB|
|00003b10| 6c 61 63 6b 7d 0d 38 30 | 20 57 49 4e 44 4f 57 20 |lack}.80| WINDOW |
|00003b20| 71 75 69 74 57 69 6e 2c | 20 73 70 65 63 0d 39 30 |quitWin,| spec.90|
|00003b30| 20 53 48 4f 57 20 64 72 | 61 77 57 69 6e 2c 20 71 | SHOW dr|awWin, q|
|00003b40| 75 69 74 57 69 6e 0d 31 | 35 30 20 57 41 49 54 20 |uitWin.1|50 WAIT |
|00003b50| 31 30 30 30 0d 31 36 30 | 20 47 4f 54 4f 20 31 35 |1000.160| GOTO 15|
|00003b60| 30 0d 32 30 30 20 52 45 | 4d 20 55 73 65 72 20 54 |0.200 RE|M User T|
|00003b70| 61 70 70 65 64 20 43 6c | 6f 73 65 20 42 6f 78 0d |apped Cl|ose Box.|
|00003b80| 32 31 30 20 49 46 20 4c | 45 4e 47 54 48 28 64 72 |210 IF L|ENGTH(dr|
|00003b90| 61 77 53 70 65 63 2e 77 | 69 6e 64 6f 77 53 70 65 |awSpec.w|indowSpe|
|00003ba0| 63 2e 76 69 65 77 43 68 | 69 6c 64 72 65 6e 29 20 |c.viewCh|ildren) |
|00003bb0| 3c 20 31 20 54 48 45 4e | 20 47 4f 54 4f 20 32 34 |< 1 THEN| GOTO 24|
|00003bc0| 30 0d 32 32 30 20 50 52 | 49 4e 54 20 22 46 69 72 |0.220 PR|INT "Fir|
|00003bd0| 73 74 20 44 72 61 77 69 | 6e 67 3a 20 22 3b 20 50 |st Drawi|ng: "; P|
|00003be0| 4f 49 4e 54 53 54 4f 41 | 52 52 41 59 28 64 72 61 |OINTSTOA|RRAY(dra|
|00003bf0| 77 53 70 65 63 2e 77 69 | 6e 64 6f 77 53 70 65 63 |wSpec.wi|ndowSpec|
|00003c00| 2e 76 69 65 77 43 68 69 | 6c 64 72 65 6e 5b 30 5d |.viewChi|ldren[0]|
|00003c10| 2e 70 6f 69 6e 74 73 29 | 0d 32 34 30 20 48 49 44 |.points)|.240 HID|
|00003c20| 45 0d 32 35 30 20 45 4e | 44 0d 0d 0d 31 30 20 52 |E.250 EN|D...10 R|
|00003c30| 45 4d 20 50 52 49 4e 54 | 20 45 78 61 6d 70 6c 65 |EM PRINT| Example|
|00003c40| 0d 32 30 20 50 52 49 4e | 54 20 22 54 68 65 20 50 |.20 PRIN|T "The P|
|00003c50| 52 49 4e 54 20 43 6f 6d | 6d 61 6e 64 22 0d 33 30 |RINT Com|mand".30|
|00003c60| 20 50 52 49 4e 54 0d 34 | 30 20 3b 20 22 43 61 6e | PRINT.4|0 ; "Can|
|00003c70| 20 62 65 20 75 73 65 64 | 20 74 6f 20 73 65 70 61 | be used| to sepa|
|00003c80| 72 61 74 65 22 2c 20 22 | 74 65 78 74 22 0d 35 30 |rate", "|text".50|
|00003c90| 20 3b 20 22 4f 72 20 4a | 6f 69 6e 20 4e 75 6d 62 | ; "Or J|oin Numb|
|00003ca0| 65 72 73 20 61 6e 64 20 | 54 65 78 74 22 0d 36 30 |ers and |Text".60|
|00003cb0| 20 50 52 49 4e 54 20 31 | 30 2a 31 30 3b 20 22 20 | PRINT 1|0*10; " |
|00003cc0| 4c 6c 61 6d 61 73 22 0d | 0d 0d 31 30 20 52 45 4d |Llamas".|..10 REM|
|00003cd0| 20 50 72 6f 67 72 61 6d | 31 0d 32 30 20 50 52 49 | Program|1.20 PRI|
|00003ce0| 4e 54 20 22 54 68 69 73 | 20 69 73 20 50 72 6f 67 |NT "This| is Prog|
|00003cf0| 72 61 6d 20 31 22 0d 33 | 30 20 43 48 41 49 4e 20 |ram 1".3|0 CHAIN |
|00003d00| 22 50 72 6f 67 72 61 6d | 32 22 0d 34 30 20 50 52 |"Program|2".40 PR|
|00003d10| 49 4e 54 20 22 52 65 74 | 75 72 6e 20 74 6f 20 50 |INT "Ret|urn to P|
|00003d20| 72 6f 67 72 61 6d 31 22 | 0d 0d 0d 31 30 20 52 45 |rogram1"|...10 RE|
|00003d30| 4d 20 50 72 6f 67 72 61 | 6d 32 0d 32 30 20 50 52 |M Progra|m2.20 PR|
|00003d40| 49 4e 54 20 22 54 68 69 | 73 20 69 73 20 50 72 6f |INT "Thi|s is Pro|
|00003d50| 67 72 61 6d 20 32 22 0d | 33 30 20 43 48 41 49 4e |gram 2".|30 CHAIN|
|00003d60| 20 22 50 72 6f 67 72 61 | 6d 31 22 2c 34 30 0d 0d | "Progra|m1",40..|
|00003d70| 0d 31 30 20 52 45 4d 20 | 50 55 54 20 45 78 61 6d |.10 REM |PUT Exam|
|00003d80| 70 6c 65 0d 32 30 20 52 | 45 4d 20 43 72 65 61 74 |ple.20 R|EM Creat|
|00003d90| 65 73 20 61 20 66 69 6c | 65 2e 2e 2e 70 72 6f 6d |es a fil|e...prom|
|00003da0| 70 74 73 20 66 6f 72 20 | 73 6f 6d 65 20 69 6e 66 |pts for |some inf|
|00003db0| 6f 72 6d 61 74 69 6f 6e | 2c 20 73 74 6f 72 65 73 |ormation|, stores|
|00003dc0| 20 74 68 65 6e 20 64 65 | 6c 65 74 65 73 20 69 74 | then de|letes it|
|00003dd0| 2e 0d 34 30 20 43 52 45 | 41 54 45 20 63 68 61 6e |..40 CRE|ATE chan|
|00003de0| 2c 20 22 45 58 41 4d 50 | 4c 45 46 69 6c 65 22 2c |, "EXAMP|LEFile",|
|00003df0| 20 6b 65 79 6e 61 6d 65 | 0d 34 35 20 49 46 20 46 | keyname|.45 IF F|
|00003e00| 53 54 41 54 3d 31 20 54 | 48 45 4e 20 53 54 4f 50 |STAT=1 T|HEN STOP|
|00003e10| 20 2f 2f 20 43 52 45 41 | 54 45 20 65 72 72 6f 72 | // CREA|TE error|
|00003e20| 0d 35 30 20 50 52 49 4e | 54 20 22 50 6c 65 61 73 |.50 PRIN|T "Pleas|
|00003e30| 65 20 65 6e 74 65 72 20 | 73 6f 6d 65 20 6b 65 79 |e enter |some key|
|00003e40| 20 64 61 74 61 2e 2e 2e | 22 0d 36 30 20 49 4e 50 | data...|".60 INP|
|00003e50| 55 54 20 46 69 6c 65 4b | 65 79 0d 37 30 20 66 69 |UT FileK|ey.70 fi|
|00003e60| 6c 65 52 65 63 6f 72 64 | 20 3d 20 7b 7d 0d 38 30 |leRecord| = {}.80|
|00003e70| 20 66 69 6c 65 52 65 63 | 6f 72 64 2e 6b 65 79 6e | fileRec|ord.keyn|
|00003e80| 61 6d 65 20 3d 20 46 69 | 6c 65 4b 65 79 0d 39 30 |ame = Fi|leKey.90|
|00003e90| 20 50 55 54 20 63 68 61 | 6e 2c 20 66 69 6c 65 52 | PUT cha|n, fileR|
|00003ea0| 65 63 6f 72 64 0d 31 30 | 30 20 49 46 20 46 53 54 |ecord.10|0 IF FST|
|00003eb0| 41 54 3d 31 20 54 48 45 | 4e 20 53 54 4f 50 20 2f |AT=1 THE|N STOP /|
|00003ec0| 2f 20 50 55 54 20 65 72 | 72 6f 72 0d 31 31 30 20 |/ PUT er|ror.110 |
|00003ed0| 50 52 49 4e 54 20 22 44 | 61 74 61 20 6e 6f 77 20 |PRINT "D|ata now |
|00003ee0| 69 6e 20 66 69 6c 65 20 | 69 73 2e 2e 2e 22 0d 31 |in file |is...".1|
|00003ef0| 32 30 20 47 45 54 20 63 | 68 61 6e 2c 46 65 74 63 |20 GET c|han,Fetc|
|00003f00| 68 65 64 44 61 74 61 2c | 46 69 6c 65 4b 65 79 0d |hedData,|FileKey.|
|00003f10| 31 33 30 20 49 46 20 46 | 53 54 41 54 3d 31 20 54 |130 IF F|STAT=1 T|
|00003f20| 48 45 4e 20 53 54 4f 50 | 20 2f 2f 20 47 45 54 20 |HEN STOP| // GET |
|00003f30| 65 72 72 6f 72 0d 31 34 | 30 20 50 52 49 4e 54 20 |error.14|0 PRINT |
|00003f40| 46 65 74 63 68 65 64 44 | 61 74 61 0d 31 35 30 20 |FetchedD|ata.150 |
|00003f50| 50 52 49 4e 54 20 22 44 | 65 6c 65 74 69 6e 67 20 |PRINT "D|eleting |
|00003f60| 52 65 63 6f 72 64 20 46 | 72 6f 6d 20 46 69 6c 65 |Record F|rom File|
|00003f70| 22 0d 31 36 30 20 44 45 | 4c 20 63 68 61 6e 2c 46 |".160 DE|L chan,F|
|00003f80| 65 74 63 68 65 64 44 61 | 74 61 0d 0d 31 30 20 52 |etchedDa|ta..10 R|
|00003f90| 45 4d 20 52 41 4e 44 4f | 4d 20 45 78 61 6d 70 6c |EM RANDO|M Exampl|
|00003fa0| 65 0d 32 30 20 52 45 4d | 20 44 69 73 70 6c 61 79 |e.20 REM| Display|
|00003fb0| 73 20 31 30 20 72 61 6e | 64 6f 6d 20 6e 75 6d 62 |s 10 ran|dom numb|
|00003fc0| 65 72 73 20 62 65 74 77 | 65 65 6e 20 35 20 61 6e |ers betw|een 5 an|
|00003fd0| 64 20 31 35 0d 33 30 20 | 46 4f 52 20 69 20 3d 20 |d 15.30 |FOR i = |
|00003fe0| 31 20 74 6f 20 31 30 0d | 34 30 20 50 52 49 4e 54 |1 to 10.|40 PRINT|
|00003ff0| 20 52 41 4e 44 4f 4d 28 | 35 2c 31 35 29 0d 35 30 | RANDOM(|5,15).50|
|00004000| 20 4e 45 58 54 20 69 0d | 0d 0d 31 30 20 52 45 4d | NEXT i.|..10 REM|
|00004010| 20 52 41 4e 44 4f 4d 49 | 5a 45 20 45 78 61 6d 70 | RANDOMI|ZE Examp|
|00004020| 6c 65 0d 32 30 20 52 41 | 4e 44 4f 4d 49 5a 45 20 |le.20 RA|NDOMIZE |
|00004030| 33 34 0d 33 30 20 46 4f | 52 20 69 20 3d 20 31 20 |34.30 FO|R i = 1 |
|00004040| 74 6f 20 31 30 0d 34 30 | 20 50 52 49 4e 54 20 52 |to 10.40| PRINT R|
|00004050| 41 4e 44 4f 4d 28 31 2c | 31 30 29 0d 35 30 20 4e |ANDOM(1,|10).50 N|
|00004060| 45 58 54 20 69 0d 0d 0d | 31 30 20 52 45 4d 20 52 |EXT i...|10 REM R|
|00004070| 45 4d 20 45 78 61 6d 70 | 6c 65 20 31 0d 31 35 20 |EM Examp|le 1.15 |
|00004080| 41 3d 31 20 2f 2f 20 53 | 65 74 20 41 20 74 6f 20 |A=1 // S|et A to |
|00004090| 31 0d 32 30 20 50 52 49 | 4e 54 20 22 54 68 69 73 |1.20 PRI|NT "This|
|000040a0| 20 6c 69 6e 65 20 69 73 | 20 70 72 69 6e 74 65 64 | line is| printed|
|000040b0| 22 0d 33 30 20 52 45 4d | 20 42 75 74 20 74 68 69 |".30 REM| But thi|
|000040c0| 73 20 6c 69 6e 65 20 69 | 73 20 6e 6f 74 20 70 72 |s line i|s not pr|
|000040d0| 69 6e 74 65 64 0d 34 30 | 20 52 45 4d 20 4e 65 69 |inted.40| REM Nei|
|000040e0| 74 68 65 72 20 69 73 20 | 74 68 69 73 20 6f 6e 65 |ther is |this one|
|000040f0| 0d 0d 0d 31 30 20 52 45 | 4d 20 52 45 4d 20 45 78 |...10 RE|M REM Ex|
|00004100| 61 6d 70 6c 65 20 32 0d | 32 30 20 52 45 4d 20 49 |ample 2.|20 REM I|
|00004110| 74 20 73 68 6f 77 73 20 | 68 6f 77 20 74 68 65 20 |t shows |how the |
|00004120| 52 45 4d 20 53 74 61 74 | 65 6d 65 6e 74 20 69 73 |REM Stat|ement is|
|00004130| 20 75 73 65 64 20 77 69 | 74 68 0d 33 30 20 52 45 | used wi|th.30 RE|
|00004140| 4d 20 47 4f 53 55 42 20 | 61 6e 64 20 47 4f 54 4f |M GOSUB |and GOTO|
|00004150| 20 52 6f 75 74 69 6e 65 | 73 2e 0d 34 30 20 47 4f | Routine|s..40 GO|
|00004160| 53 55 42 20 37 30 0d 35 | 30 20 50 52 49 4e 54 20 |SUB 70.5|0 PRINT |
|00004170| 22 52 65 74 75 72 6e 20 | 66 72 6f 6d 20 47 4f 53 |"Return |from GOS|
|00004180| 55 42 22 0d 36 30 20 45 | 4e 44 0d 37 30 20 52 45 |UB".60 E|ND.70 RE|
|00004190| 4d 20 4e 6f 74 69 63 65 | 20 74 68 65 20 42 61 63 |M Notice| the Bac|
|000041a0| 6b 73 6c 61 73 68 65 73 | 0d 38 30 20 50 52 49 4e |kslashes|.80 PRIN|
|000041b0| 54 20 22 48 65 72 65 20 | 49 20 41 6d 21 22 0d 39 |T "Here |I Am!".9|
|000041c0| 30 20 52 45 54 55 52 4e | 0d 0d 0d 31 30 20 52 45 |0 RETURN|...10 RE|
|000041d0| 4d 20 52 45 4d 41 49 4e | 44 45 52 20 45 78 61 6d |M REMAIN|DER Exam|
|000041e0| 70 6c 65 0d 32 30 20 52 | 45 4d 20 54 68 69 73 20 |ple.20 R|EM This |
|000041f0| 70 72 6f 67 72 61 6d 20 | 74 61 6b 65 73 20 74 77 |program |takes tw|
|00004200| 6f 20 6e 75 6d 62 65 72 | 73 20 61 6e 64 20 63 6f |o number|s and co|
|00004210| 6d 70 75 74 65 73 20 74 | 68 65 20 72 65 6d 61 69 |mputes t|he remai|
|00004220| 6e 64 65 72 73 20 6f 66 | 20 74 68 65 69 72 20 64 |nders of| their d|
|00004230| 69 76 69 73 69 6f 6e 2e | 0d 33 30 20 50 52 49 4e |ivision.|.30 PRIN|
|00004240| 54 20 22 50 6c 65 61 73 | 65 20 65 6e 74 65 72 20 |T "Pleas|e enter |
|00004250| 74 77 6f 20 6e 75 6d 62 | 65 72 73 2e 22 0d 34 30 |two numb|ers.".40|
|00004260| 20 49 4e 50 55 54 20 4e | 75 6d 62 65 72 31 2c 4e | INPUT N|umber1,N|
|00004270| 75 6d 62 65 72 32 0d 35 | 30 20 50 52 49 4e 54 20 |umber2.5|0 PRINT |
|00004280| 22 54 68 65 20 52 65 6d | 61 69 6e 64 65 72 20 6f |"The Rem|ainder o|
|00004290| 66 20 22 20 3b 20 4e 75 | 6d 62 65 72 31 20 3b 20 |f " ; Nu|mber1 ; |
|000042a0| 22 20 64 69 76 69 64 65 | 64 20 62 79 20 22 20 3b |" divide|d by " ;|
|000042b0| 20 4e 75 6d 62 65 72 32 | 3b 20 22 20 69 73 20 22 | Number2|; " is "|
|000042c0| 20 3b 20 52 45 4d 41 49 | 4e 44 45 52 28 4e 75 6d | ; REMAI|NDER(Num|
|000042d0| 62 65 72 31 2c 20 4e 75 | 6d 62 65 72 32 29 0d 0d |ber1, Nu|mber2)..|
|000042e0| 0d 31 30 20 52 45 4d 20 | 52 45 4d 4f 56 45 53 4c |.10 REM |REMOVESL|
|000042f0| 4f 54 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 61 46 |OT Examp|le.20 aF|
|00004300| 72 61 6d 65 20 3d 20 7b | 6e 61 6d 65 3a 20 22 46 |rame = {|name: "F|
|00004310| 72 65 64 22 2c 20 66 72 | 69 64 67 65 3a 20 4e 49 |red", fr|idge: NI|
|00004320| 4c 7d 0d 33 30 20 75 6e | 55 73 65 64 20 3d 20 52 |L}.30 un|Used = R|
|00004330| 45 4d 4f 56 45 73 6c 6f | 74 28 61 46 72 61 6d 65 |EMOVEslo|t(aFrame|
|00004340| 2c 20 27 66 72 69 64 67 | 65 29 0d 34 30 20 50 52 |, 'fridg|e).40 PR|
|00004350| 49 4e 54 20 61 46 72 61 | 6d 65 0d 0d 0d 31 30 20 |INT aFra|me...10 |
|00004360| 52 45 4d 20 52 45 4e 55 | 4d 20 50 72 6f 67 72 61 |REM RENU|M Progra|
|00004370| 6d 0d 32 30 20 50 52 49 | 4e 54 20 22 54 68 69 73 |m.20 PRI|NT "This|
|00004380| 20 69 73 20 6c 69 6e 65 | 20 30 30 32 30 22 0d 33 | is line| 0020".3|
|00004390| 30 20 50 52 49 4e 54 20 | 22 54 68 69 73 20 69 73 |0 PRINT |"This is|
|000043a0| 20 6c 69 6e 65 20 30 30 | 33 30 22 0d 34 30 20 50 | line 00|30".40 P|
|000043b0| 52 49 4e 54 20 22 54 68 | 69 73 20 69 73 20 6c 69 |RINT "Th|is is li|
|000043c0| 6e 65 20 30 30 34 30 22 | 0d 35 30 20 50 52 49 4e |ne 0040"|.50 PRIN|
|000043d0| 54 20 22 54 68 69 73 20 | 69 73 20 6c 69 6e 65 20 |T "This |is line |
|000043e0| 30 30 35 30 22 0d 0d 0d | 31 30 20 52 45 4d 20 52 |0050"...|10 REM R|
|000043f0| 45 53 54 4f 52 45 20 45 | 78 61 6d 70 6c 65 0d 32 |ESTORE E|xample.2|
|00004400| 30 20 44 41 54 41 20 30 | 2e 37 36 2c 33 2e 35 35 |0 DATA 0|.76,3.55|
|00004410| 2c 37 2e 38 30 2c 32 2e | 36 35 2c 39 2e 35 32 0d |,7.80,2.|65,9.52.|
|00004420| 32 35 20 44 41 54 41 20 | 39 2e 39 36 2c 36 2e 33 |25 DATA |9.96,6.3|
|00004430| 32 2c 38 2e 31 35 2c 36 | 2e 36 31 2c 39 2e 37 33 |2,8.15,6|.61,9.73|
|00004440| 0d 33 30 20 46 4f 52 20 | 69 20 3d 20 31 20 74 6f |.30 FOR |i = 1 to|
|00004450| 20 34 0d 34 30 20 52 45 | 41 44 20 61 0d 35 30 20 | 4.40 RE|AD a.50 |
|00004460| 50 52 49 4e 54 20 61 0d | 36 30 20 4e 45 58 54 20 |PRINT a.|60 NEXT |
|00004470| 69 0d 37 30 20 52 45 53 | 54 4f 52 45 20 32 0d 38 |i.70 RES|TORE 2.8|
|00004480| 30 20 46 4f 52 20 6a 20 | 3d 20 31 20 74 6f 20 34 |0 FOR j |= 1 to 4|
|00004490| 0d 39 30 20 52 45 41 44 | 20 62 0d 31 30 30 20 50 |.90 READ| b.100 P|
|000044a0| 52 49 4e 54 20 62 0d 31 | 31 30 20 4e 45 58 54 20 |RINT b.1|10 NEXT |
|000044b0| 69 0d 0d 0d 31 30 20 52 | 45 4d 20 52 45 54 55 52 |i...10 R|EM RETUR|
|000044c0| 4e 20 45 78 61 6d 70 6c | 65 0d 32 30 20 50 52 49 |N Exampl|e.20 PRI|
|000044d0| 4e 54 20 22 42 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |NT "Begi|nning of|
|000044e0| 20 50 72 6f 67 72 61 6d | 22 0d 33 30 20 47 4f 53 | Program|".30 GOS|
|000044f0| 55 42 20 30 30 36 30 20 | 2f 2f 20 53 75 62 72 6f |UB 0060 |// Subro|
|00004500| 75 74 69 6e 65 20 23 20 | 31 0d 34 30 20 50 52 49 |utine # |1.40 PRI|
|00004510| 4e 54 20 22 45 6e 64 20 | 6f 66 20 50 72 6f 67 72 |NT "End |of Progr|
|00004520| 61 6d 22 0d 35 30 20 45 | 4e 44 0d 36 30 20 52 45 |am".50 E|ND.60 RE|
|00004530| 4d 20 53 75 62 72 6f 75 | 74 69 6e 65 20 23 31 0d |M Subrou|tine #1.|
|00004540| 37 30 20 50 52 49 4e 54 | 20 22 48 65 72 65 20 49 |70 PRINT| "Here I|
|00004550| 20 61 6d 21 22 0d 38 30 | 20 52 45 54 55 52 4e 0d | am!".80| RETURN.|
|00004560| 0d 0d 31 30 20 52 45 4d | 20 52 4f 55 4e 44 20 45 |..10 REM| ROUND E|
|00004570| 78 61 6d 70 6c 65 0d 32 | 30 20 52 45 4d 20 52 4f |xample.2|0 REM RO|
|00004580| 55 4e 44 53 20 74 68 72 | 65 65 20 6e 75 6d 62 65 |UNDS thr|ee numbe|
|00004590| 72 73 20 61 6e 64 20 61 | 64 64 73 20 74 68 65 6d |rs and a|dds them|
|000045a0| 20 74 6f 67 65 74 68 65 | 72 2e 0d 33 30 20 50 52 | togethe|r..30 PR|
|000045b0| 49 4e 54 20 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |INT "Ple|ase ente|
|000045c0| 72 20 74 68 72 65 65 20 | 6e 75 6d 62 65 72 73 22 |r three |numbers"|
|000045d0| 0d 34 30 20 49 4e 50 55 | 54 20 4e 75 6d 62 65 72 |.40 INPU|T Number|
|000045e0| 31 2c 4e 75 6d 62 65 72 | 32 2c 4e 75 6d 62 65 72 |1,Number|2,Number|
|000045f0| 33 0d 35 30 20 54 6f 74 | 61 6c 20 3d 20 52 4f 55 |3.50 Tot|al = ROU|
|00004600| 4e 44 28 4e 75 6d 62 65 | 72 31 29 20 2b 20 52 4f |ND(Numbe|r1) + RO|
|00004610| 55 4e 44 28 4e 75 6d 62 | 65 72 32 29 20 2b 20 52 |UND(Numb|er2) + R|
|00004620| 4f 55 4e 44 28 4e 75 6d | 62 65 72 33 29 0d 36 30 |OUND(Num|ber3).60|
|00004630| 20 50 52 49 4e 54 20 22 | 54 68 65 20 54 6f 74 61 | PRINT "|The Tota|
|00004640| 6c 20 69 73 20 3d 20 22 | 20 3b 20 54 6f 74 61 6c |l is = "| ; Total|
|00004650| 0d 0d 0d 31 30 20 52 45 | 4d 20 53 43 52 4f 4c 4c |...10 RE|M SCROLL|
|00004660| 45 52 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 77 31 |ER Examp|le.20 w1|
|00004670| 53 70 65 63 20 3d 20 7b | 74 65 78 74 3a 20 22 59 |Spec = {|text: "Y|
|00004680| 6f 75 20 63 61 6e 2e 2e | 2e 22 7d 0d 33 30 20 57 |ou can..|."}.30 W|
|00004690| 49 4e 44 4f 57 20 77 31 | 2c 20 77 31 53 70 65 63 |INDOW w1|, w1Spec|
|000046a0| 2c 20 22 53 43 52 4f 4c | 4c 45 52 22 0d 34 30 20 |, "SCROL|LER".40 |
|000046b0| 53 48 4f 57 20 77 31 0d | 0d 0d 31 30 20 72 65 6d |SHOW w1.|..10 rem|
|000046c0| 20 53 65 72 69 61 6c 20 | 44 75 6d 70 20 43 61 6c | Serial |Dump Cal|
|000046d0| 65 6e 64 61 72 20 45 78 | 61 6d 70 6c 65 0d 32 30 |endar Ex|ample.20|
|000046e0| 20 72 65 6d 20 73 65 74 | 20 73 65 72 69 61 6c 20 | rem set| serial |
|000046f0| 70 61 72 61 6d 73 0d 33 | 30 20 63 75 72 72 50 6f |params.3|0 currPo|
|00004700| 72 74 20 3d 20 65 6e 76 | 28 22 73 30 22 29 0d 34 |rt = env|("s0").4|
|00004710| 30 20 63 75 72 72 50 6f | 72 74 2e 64 61 74 61 20 |0 currPo|rt.data |
|00004720| 3d 20 5b 34 38 30 30 2c | 38 2c 31 2c 22 6e 6f 22 |= [4800,|8,1,"no"|
|00004730| 5d 0d 35 30 20 65 6e 76 | 69 72 6f 6e 20 73 30 3d |].50 env|iron s0=|
|00004740| 63 75 72 72 50 6f 72 74 | 0d 36 30 20 6f 6e 20 65 |currPort|.60 on e|
|00004750| 72 72 6f 72 20 47 4f 54 | 4f 20 31 32 30 0d 37 30 |rror GOT|O 120.70|
|00004760| 20 65 6e 76 69 72 6f 6e | 20 69 6f 3d 22 73 30 22 | environ| io="s0"|
|00004770| 20 2f 2f 20 73 77 69 74 | 63 68 20 74 6f 20 73 65 | // swit|ch to se|
|00004780| 72 69 61 6c 0d 38 30 20 | 6f 70 65 6e 20 63 68 2c |rial.80 |open ch,|
|00004790| 22 63 61 6c 65 6e 64 61 | 72 22 2c 6d 74 67 73 74 |"calenda|r",mtgst|
|000047a0| 61 72 74 64 61 74 65 0d | 39 30 20 67 65 74 20 63 |artdate.|90 get c|
|000047b0| 68 2c 20 6e 0d 31 30 30 | 20 50 52 49 4e 54 20 6e |h, n.100| PRINT n|
|000047c0| 20 2f 2f 20 64 75 6d 70 | 20 72 65 63 6f 72 64 0d | // dump| record.|
|000047d0| 31 31 30 20 47 4f 54 4f | 20 39 30 0d 31 32 30 20 |110 GOTO| 90.120 |
|000047e0| 72 65 6d 20 45 4f 46 20 | 6f 72 20 6f 74 68 65 72 |rem EOF |or other|
|000047f0| 20 70 72 6f 62 6c 65 6d | 0d 31 33 30 20 65 6e 76 | problem|.130 env|
|00004800| 69 72 6f 6e 20 69 6f 3d | 22 73 63 72 65 65 6e 22 |iron io=|"screen"|
|00004810| 0d 31 34 30 20 65 6e 64 | 0d 0d 31 30 20 72 65 6d |.140 end|..10 rem|
|00004820| 20 73 65 72 69 61 6c 20 | 70 6f 72 74 20 45 78 61 | serial |port Exa|
|00004830| 6d 70 6c 65 0d 32 30 20 | 66 2e 76 69 65 77 62 6f |mple.20 |f.viewbo|
|00004840| 75 6e 64 73 3d 7b 6c 65 | 66 74 3a 31 30 30 2c 20 |unds={le|ft:100, |
|00004850| 72 69 67 68 74 3a 20 31 | 33 30 2c 74 6f 70 3a 31 |right: 1|30,top:1|
|00004860| 30 30 2c 20 62 6f 74 74 | 6f 6d 3a 20 31 31 30 7d |00, bott|om: 110}|
|00004870| 0d 33 30 20 74 72 3d 30 | 0d 34 30 20 74 72 61 6e |.30 tr=0|.40 tran|
|00004880| 73 6c 69 73 74 3d 22 22 | 0d 35 30 20 63 6c 73 0d |slist=""|.50 cls.|
|00004890| 36 30 20 77 69 6e 64 6f | 77 20 77 31 2c 66 0d 37 |60 windo|w w1,f.7|
|000048a0| 30 20 73 68 6f 77 20 77 | 31 0d 38 30 20 65 6e 76 |0 show w|1.80 env|
|000048b0| 69 72 6f 6e 20 69 6f 3d | 22 73 30 22 0d 39 30 20 |iron io=|"s0".90 |
|000048c0| 72 65 6d 20 67 65 74 20 | 61 20 74 72 61 6e 73 61 |rem get |a transa|
|000048d0| 63 74 69 6f 6e 0d 31 30 | 30 20 69 6e 70 75 74 20 |ction.10|0 input |
|000048e0| 74 72 61 6e 73 0d 31 31 | 30 20 74 72 3d 74 72 2b |trans.11|0 tr=tr+|
|000048f0| 31 0d 31 32 30 20 74 72 | 61 6e 73 6c 69 73 74 3d |1.120 tr|anslist=|
|00004900| 74 72 61 6e 73 6c 69 73 | 74 20 26 20 74 72 61 6e |translis|t & tran|
|00004910| 73 20 26 20 63 68 72 28 | 31 33 29 0d 31 33 30 20 |s & chr(|13).130 |
|00004920| 77 70 72 69 6e 74 20 77 | 31 2c 74 72 0d 31 34 30 |wprint w|1,tr.140|
|00004930| 20 69 66 20 74 72 61 6e | 73 3c 3e 22 42 59 45 22 | if tran|s<>"BYE"|
|00004940| 20 74 68 65 6e 20 67 6f | 74 6f 20 39 30 0d 31 35 | then go|to 90.15|
|00004950| 30 20 65 6e 76 69 72 6f | 6e 20 69 6f 3d 22 73 63 |0 enviro|n io="sc|
|00004960| 72 65 65 6e 22 0d 31 36 | 30 20 50 52 49 4e 54 20 |reen".16|0 PRINT |
|00004970| 74 72 61 6e 73 6c 69 73 | 74 0d 31 37 30 20 68 69 |translis|t.170 hi|
|00004980| 64 65 20 77 31 0d 0d 31 | 30 20 72 65 6d 20 63 6f |de w1..1|0 rem co|
|00004990| 6c 6c 65 63 74 20 64 61 | 74 61 20 66 72 6f 6d 20 |llect da|ta from |
|000049a0| 73 65 72 69 61 6c 20 70 | 6f 72 74 0d 32 30 20 66 |serial p|ort.20 f|
|000049b0| 2e 76 69 65 77 62 6f 75 | 6e 64 73 3d 7b 6c 65 66 |.viewbou|nds={lef|
|000049c0| 74 3a 31 30 30 2c 20 72 | 69 67 68 74 3a 20 31 33 |t:100, r|ight: 13|
|000049d0| 30 2c 74 6f 70 3a 31 30 | 30 2c 20 62 6f 74 74 6f |0,top:10|0, botto|
|000049e0| 6d 3a 20 31 31 30 7d 0d | 33 30 20 74 72 3d 30 0d |m: 110}.|30 tr=0.|
|000049f0| 34 30 20 74 72 61 6e 73 | 6c 69 73 74 3d 22 22 0d |40 trans|list="".|
|00004a00| 35 30 20 63 6c 73 0d 36 | 30 20 77 69 6e 64 6f 77 |50 cls.6|0 window|
|00004a10| 20 77 31 2c 66 0d 37 30 | 20 73 68 6f 77 20 77 31 | w1,f.70| show w1|
|00004a20| 0d 38 30 20 65 6e 76 69 | 72 6f 6e 20 69 6f 3d 22 |.80 envi|ron io="|
|00004a30| 73 30 22 0d 39 30 20 72 | 65 6d 20 67 65 74 20 61 |s0".90 r|em get a|
|00004a40| 20 74 72 61 6e 73 0d 31 | 30 30 20 69 6e 70 75 74 | trans.1|00 input|
|00004a50| 20 74 72 61 6e 73 0d 31 | 31 30 20 74 72 3d 74 72 | trans.1|10 tr=tr|
|00004a60| 2b 31 0d 31 32 30 20 74 | 72 61 6e 73 6c 69 73 74 |+1.120 t|ranslist|
|00004a70| 3d 74 72 61 6e 73 6c 69 | 73 74 20 26 20 74 72 61 |=transli|st & tra|
|00004a80| 6e 73 20 26 20 63 68 72 | 28 31 33 29 0d 31 33 30 |ns & chr|(13).130|
|00004a90| 20 77 70 72 69 6e 74 20 | 77 31 2c 74 72 0d 31 34 | wprint |w1,tr.14|
|00004aa0| 30 20 69 66 20 74 72 61 | 6e 73 3c 3e 22 42 59 45 |0 if tra|ns<>"BYE|
|00004ab0| 22 20 74 68 65 6e 20 67 | 6f 74 6f 20 39 30 0d 31 |" then g|oto 90.1|
|00004ac0| 35 30 20 65 6e 76 69 72 | 6f 6e 20 69 6f 3d 22 73 |50 envir|on io="s|
|00004ad0| 63 72 65 65 6e 22 0d 31 | 36 30 20 50 52 49 4e 54 |creen".1|60 PRINT|
|00004ae0| 20 74 72 61 6e 73 6c 69 | 73 74 0d 0d 0d 31 30 20 | transli|st...10 |
|00004af0| 52 45 4d 20 4c 69 73 74 | 20 63 6f 6e 74 65 6e 74 |REM List| content|
|00004b00| 73 20 6f 66 20 73 70 72 | 65 61 64 73 68 65 65 74 |s of spr|eadsheet|
|00004b10| 20 74 6f 20 74 68 65 20 | 73 65 72 69 61 6c 20 70 | to the |serial p|
|00004b20| 6f 72 74 0d 31 32 20 45 | 4e 56 49 52 4f 4e 20 69 |ort.12 E|NVIRON i|
|00004b30| 6f 3d 22 73 30 22 0d 31 | 35 20 4f 50 45 4e 20 63 |o="s0".1|5 OPEN c|
|00004b40| 68 2c 22 71 66 69 67 3a | 64 6f 6e 76 22 0d 32 30 |h,"qfig:|donv".20|
|00004b50| 20 47 45 54 20 63 68 2c | 66 31 0d 33 30 20 47 45 | GET ch,|f1.30 GE|
|00004b60| 54 20 63 68 2c 66 32 0d | 35 30 20 78 3d 45 4c 45 |T ch,f2.|50 x=ELE|
|00004b70| 4d 45 4e 54 53 28 66 31 | 2e 76 61 6c 75 65 73 29 |MENTS(f1|.values)|
|00004b80| 0d 36 30 20 46 4f 52 20 | 69 3d 30 20 54 4f 20 6c |.60 FOR |i=0 TO l|
|00004b90| 65 6e 67 74 68 28 78 29 | 2d 31 0d 37 30 20 79 3d |ength(x)|-1.70 y=|
|00004ba0| 49 4e 54 45 52 4e 28 78 | 5b 69 5d 29 0d 38 30 20 |INTERN(x|[i]).80 |
|00004bb0| 50 52 49 4e 54 20 78 5b | 69 5d 2c 66 31 2e 76 61 |PRINT x[|i],f1.va|
|00004bc0| 6c 75 65 73 2e 28 79 29 | 2c 20 66 32 2e 64 61 74 |lues.(y)|, f2.dat|
|00004bd0| 61 2e 28 79 29 2e 66 6f | 72 6d 75 6c 61 0d 31 30 |a.(y).fo|rmula.10|
|00004be0| 30 20 4e 45 58 54 20 69 | 0d 31 31 30 20 45 4e 56 |0 NEXT i|.110 ENV|
|00004bf0| 49 52 4f 4e 20 69 6f 3d | 22 73 63 72 65 65 6e 22 |IRON io=|"screen"|
|00004c00| 0d 0d 0d 31 30 20 52 45 | 4d 20 53 45 54 43 4c 4f |...10 RE|M SETCLO|
|00004c10| 43 4b 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 77 31 |CK Examp|le.20 w1|
|00004c20| 53 70 65 63 20 3d 20 7b | 7d 0d 33 30 20 57 49 4e |Spec = {|}.30 WIN|
|00004c30| 44 4f 57 20 77 31 2c 20 | 77 31 53 70 65 63 2c 20 |DOW w1, |w1Spec, |
|00004c40| 22 53 45 54 43 4c 4f 43 | 4b 22 0d 34 30 20 53 48 |"SETCLOC|K".40 SH|
|00004c50| 4f 57 20 77 31 0d 0d 0d | 31 30 20 52 45 4d 20 53 |OW w1...|10 REM S|
|00004c60| 45 54 56 41 4c 55 45 20 | 45 78 61 6d 70 6c 65 0d |ETVALUE |Example.|
|00004c70| 32 30 20 57 31 53 70 65 | 63 3d 7b 76 69 65 77 42 |20 W1Spe|c={viewB|
|00004c80| 6f 75 6e 64 73 3a 20 7b | 4c 65 66 74 3a 20 31 30 |ounds: {|Left: 10|
|00004c90| 2c 20 52 69 67 68 74 3a | 20 32 30 30 2c 20 54 6f |, Right:| 200, To|
|00004ca0| 70 3a 20 35 30 2c 20 42 | 6f 74 74 6f 6d 3a 20 38 |p: 50, B|ottom: 8|
|00004cb0| 30 7d 7d 0d 33 30 20 57 | 49 4e 44 4f 57 20 57 69 |0}}.30 W|INDOW Wi|
|00004cc0| 6e 31 2c 20 57 31 53 70 | 65 63 2c 20 22 4c 61 62 |n1, W1Sp|ec, "Lab|
|00004cd0| 65 6c 49 6e 70 75 74 22 | 0d 34 30 20 53 48 4f 57 |elInput"|.40 SHOW|
|00004ce0| 20 57 69 6e 31 0d 35 30 | 20 46 4f 52 20 69 20 3d | Win1.50| FOR i =|
|00004cf0| 20 31 20 54 4f 20 31 30 | 0d 36 30 20 75 6e 55 73 | 1 TO 10|.60 unUs|
|00004d00| 65 64 20 3d 20 53 45 54 | 56 41 4c 55 45 28 55 2e |ed = SET|VALUE(U.|
|00004d10| 57 31 53 70 65 63 2e 65 | 6e 74 72 79 6c 69 6e 65 |W1Spec.e|ntryline|
|00004d20| 2c 20 27 74 65 78 74 2c | 20 22 4e 75 6d 62 65 72 |, 'text,| "Number|
|00004d30| 3a 20 22 26 69 29 0d 37 | 30 20 57 41 49 54 20 31 |: "&i).7|0 WAIT 1|
|00004d40| 30 30 0d 38 30 20 4e 45 | 58 54 20 69 0d 0d 0d 31 |00.80 NE|XT i...1|
|00004d50| 30 20 52 45 4d 20 53 48 | 4f 57 20 45 78 61 6d 70 |0 REM SH|OW Examp|
|00004d60| 6c 65 0d 32 30 20 57 31 | 53 70 65 63 3d 7b 56 69 |le.20 W1|Spec={Vi|
|00004d70| 65 77 42 6f 75 6e 64 73 | 3a 20 7b 4c 65 66 74 3a |ewBounds|: {Left:|
|00004d80| 20 31 30 2c 20 52 69 67 | 68 74 3a 20 31 30 30 2c | 10, Rig|ht: 100,|
|00004d90| 20 54 6f 70 3a 20 35 30 | 2c 20 42 6f 74 74 6f 6d | Top: 50|, Bottom|
|00004da0| 3a 20 31 30 30 7d 7d 0d | 33 30 20 57 49 4e 44 4f |: 100}}.|30 WINDO|
|00004db0| 57 20 57 69 6e 31 2c 20 | 57 31 53 70 65 63 0d 34 |W Win1, |W1Spec.4|
|00004dc0| 30 20 57 49 4e 44 4f 57 | 20 57 69 6e 32 0d 35 30 |0 WINDOW| Win2.50|
|00004dd0| 20 57 50 52 49 4e 54 20 | 57 69 6e 31 2c 20 22 57 | WPRINT |Win1, "W|
|00004de0| 69 6e 64 6f 77 20 31 22 | 0d 36 30 20 57 50 52 49 |indow 1"|.60 WPRI|
|00004df0| 4e 54 20 57 69 6e 32 2c | 20 22 57 69 6e 64 6f 77 |NT Win2,| "Window|
|00004e00| 20 32 22 0d 37 30 20 53 | 48 4f 57 20 57 69 6e 31 | 2".70 S|HOW Win1|
|00004e10| 2c 20 57 69 6e 32 0d 38 | 30 20 57 41 49 54 0d 39 |, Win2.8|0 WAIT.9|
|00004e20| 30 20 48 49 44 45 20 57 | 69 6e 32 0d 31 30 30 20 |0 HIDE W|in2.100 |
|00004e30| 53 48 4f 57 20 57 69 6e | 32 0d 31 31 30 20 48 49 |SHOW Win|2.110 HI|
|00004e40| 44 45 0d 0d 0d 31 30 20 | 52 45 4d 20 53 49 47 4e |DE...10 |REM SIGN|
|00004e50| 55 4d 20 45 78 61 6d 70 | 6c 65 0d 32 30 20 50 52 |UM Examp|le.20 PR|
|00004e60| 49 4e 54 20 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |INT "Ple|ase ente|
|00004e70| 72 20 61 20 6e 75 6d 62 | 65 72 22 0d 33 30 20 49 |r a numb|er".30 I|
|00004e80| 4e 50 55 54 20 58 0d 34 | 30 20 50 52 49 4e 54 20 |NPUT X.4|0 PRINT |
|00004e90| 22 53 49 47 4e 55 4d 20 | 6f 66 20 78 20 69 73 20 |"SIGNUM |of x is |
|00004ea0| 3d 20 22 20 3b 20 53 49 | 47 4e 55 4d 28 58 29 0d |= " ; SI|GNUM(X).|
|00004eb0| 0d 0d 31 30 20 72 65 6d | 20 73 69 6d 70 6c 65 20 |..10 rem| simple |
|00004ec0| 75 73 65 72 20 65 6e 74 | 72 79 20 6f 66 20 61 20 |user ent|ry of a |
|00004ed0| 6e 75 6d 62 65 72 0d 32 | 30 20 72 65 6d 20 77 69 |number.2|0 rem wi|
|00004ee0| 74 68 6f 75 74 20 65 72 | 72 6f 72 20 63 68 65 63 |thout er|ror chec|
|00004ef0| 6b 69 6e 67 0d 33 30 20 | 50 52 49 4e 54 20 22 65 |king.30 |PRINT "e|
|00004f00| 6e 74 65 72 20 79 6f 75 | 72 20 61 67 65 22 0d 34 |nter you|r age".4|
|00004f10| 30 20 69 6e 70 75 74 20 | 61 67 65 0d 35 30 20 64 |0 input |age.50 d|
|00004f20| 6f 67 41 67 65 20 3d 20 | 61 67 65 20 2a 20 37 0d |ogAge = |age * 7.|
|00004f30| 36 30 20 50 52 49 4e 54 | 20 22 59 6f 75 20 61 72 |60 PRINT| "You ar|
|00004f40| 65 20 22 3b 20 64 6f 67 | 41 67 65 3b 20 22 20 69 |e "; dog|Age; " i|
|00004f50| 6e 20 44 6f 67 20 59 65 | 61 72 73 21 22 0d 0d 0d |n Dog Ye|ars!"...|
|00004f60| 31 30 20 52 45 4d 20 53 | 49 4e 20 45 78 61 6d 70 |10 REM S|IN Examp|
|00004f70| 6c 65 0d 32 30 20 50 52 | 49 4e 54 20 22 50 6c 65 |le.20 PR|INT "Ple|
|00004f80| 61 73 65 20 65 6e 74 65 | 72 20 61 6e 20 61 6e 67 |ase ente|r an ang|
|00004f90| 6c 65 22 0d 33 30 20 49 | 4e 50 55 54 20 41 6e 67 |le".30 I|NPUT Ang|
|00004fa0| 6c 65 0d 34 30 20 50 52 | 49 4e 54 20 22 54 68 65 |le.40 PR|INT "The|
|00004fb0| 20 53 69 6e 65 20 6f 66 | 20 74 68 65 20 61 6e 67 | Sine of| the ang|
|00004fc0| 6c 65 20 69 73 20 3d 20 | 22 20 3b 20 53 49 4e 28 |le is = |" ; SIN(|
|00004fd0| 41 6e 67 6c 65 29 20 3b | 20 22 20 72 61 64 69 61 |Angle) ;| " radia|
|00004fe0| 6e 73 22 0d 0d 0d 31 30 | 20 52 45 4d 20 53 4c 49 |ns"...10| REM SLI|
|00004ff0| 44 45 52 20 45 78 61 6d | 70 6c 65 0d 32 30 20 77 |DER Exam|ple.20 w|
|00005000| 31 53 70 65 63 20 3d 20 | 7b 7d 0d 33 30 20 57 49 |1Spec = |{}.30 WI|
|00005010| 4e 44 4f 57 20 77 31 2c | 20 77 31 53 70 65 63 2c |NDOW w1,| w1Spec,|
|00005020| 20 22 53 4c 49 44 45 52 | 22 0d 34 30 20 53 48 4f | "SLIDER|".40 SHO|
|00005030| 57 20 77 31 0d 0d 0d 31 | 30 20 52 45 4d 20 53 4f |W w1...1|0 REM SO|
|00005040| 52 54 20 61 6e 20 61 72 | 72 61 79 20 45 78 61 6d |RT an ar|ray Exam|
|00005050| 70 6c 65 0d 32 30 20 44 | 49 4d 20 41 5b 33 5d 0d |ple.20 D|IM A[3].|
|00005060| 33 30 20 41 5b 30 5d 3d | 32 33 0d 34 30 20 41 5b |30 A[0]=|23.40 A[|
|00005070| 31 5d 3d 35 0d 35 30 20 | 41 5b 32 5d 3d 35 34 0d |1]=5.50 |A[2]=54.|
|00005080| 36 30 20 41 3d 53 4f 52 | 54 28 41 2c 27 7c 3c 7c |60 A=SOR|T(A,'|<||
|00005090| 2c 4e 49 4c 29 0d 37 30 | 20 50 52 49 4e 54 20 41 |,NIL).70| PRINT A|
|000050a0| 5b 30 5d 2c 41 5b 31 5d | 2c 41 5b 32 5d 0d 0d 0d |[0],A[1]|,A[2]...|
|000050b0| 31 30 20 52 45 4d 20 53 | 4f 52 54 20 6f 66 20 61 |10 REM S|ORT of a|
|000050c0| 72 72 61 79 20 6f 66 20 | 66 72 61 6d 65 73 20 45 |rray of |frames E|
|000050d0| 78 61 6d 70 6c 65 0d 31 | 35 20 64 69 6d 20 61 5b |xample.1|5 dim a[|
|000050e0| 34 5d 0d 32 30 20 61 5b | 30 5d 3d 7b 6e 61 6d 65 |4].20 a[|0]={name|
|000050f0| 3a 20 22 41 72 74 68 75 | 72 22 2c 20 73 65 71 3a |: "Arthu|r", seq:|
|00005100| 20 32 7d 0d 33 30 20 61 | 5b 31 5d 3d 7b 6e 61 6d | 2}.30 a|[1]={nam|
|00005110| 65 3a 20 22 46 6f 72 64 | 22 2c 20 73 65 71 3a 20 |e: "Ford|", seq: |
|00005120| 33 7d 0d 34 30 20 61 5b | 32 5d 3d 7b 6e 61 6d 65 |3}.40 a[|2]={name|
|00005130| 3a 20 22 54 72 69 6c 6c | 22 2c 20 73 65 71 3a 20 |: "Trill|", seq: |
|00005140| 31 7d 0d 35 30 20 61 5b | 33 5d 3d 7b 6e 61 6d 65 |1}.50 a[|3]={name|
|00005150| 3a 20 22 5a 61 70 68 6f | 64 22 2c 20 73 65 71 3a |: "Zapho|d", seq:|
|00005160| 20 34 7d 0d 36 30 20 61 | 3d 73 6f 72 74 28 61 2c | 4}.60 a|=sort(a,|
|00005170| 27 7c 3c 7c 2c 20 27 73 | 65 71 29 0d 37 30 20 46 |'|<|, 's|eq).70 F|
|00005180| 4f 52 20 69 3d 30 20 54 | 4f 20 33 0d 38 30 20 50 |OR i=0 T|O 3.80 P|
|00005190| 52 49 4e 54 20 61 5b 69 | 5d 2e 6e 61 6d 65 0d 39 |RINT a[i|].name.9|
|000051a0| 30 20 4e 45 58 54 20 69 | 0d 0d 0d 31 30 20 52 45 |0 NEXT i|...10 RE|
|000051b0| 4d 20 53 51 52 54 20 45 | 78 61 6d 70 6c 65 0d 32 |M SQRT E|xample.2|
|000051c0| 30 20 52 45 4d 20 54 68 | 69 73 20 70 72 6f 67 72 |0 REM Th|is progr|
|000051d0| 61 6d 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 73 |am retur|ns the s|
|000051e0| 71 75 61 72 65 20 72 6f | 6f 74 20 6f 66 20 74 68 |quare ro|ot of th|
|000051f0| 65 20 6e 75 6d 62 65 72 | 20 65 6e 74 65 72 65 64 |e number| entered|
|00005200| 20 61 74 20 74 68 65 20 | 70 72 6f 6d 70 74 2e 0d | at the |prompt..|
|00005210| 33 30 20 50 52 49 4e 54 | 20 22 50 6c 65 61 73 65 |30 PRINT| "Please|
|00005220| 20 65 6e 74 65 72 20 61 | 20 6e 75 6d 62 65 72 22 | enter a| number"|
|00005230| 0d 34 30 20 49 4e 50 55 | 54 20 4e 75 6d 62 65 72 |.40 INPU|T Number|
|00005240| 0d 35 30 20 50 52 49 4e | 54 20 22 53 71 75 61 72 |.50 PRIN|T "Squar|
|00005250| 65 20 72 6f 6f 74 20 3d | 20 22 20 3b 20 53 51 52 |e root =| " ; SQR|
|00005260| 54 28 4e 75 6d 62 65 72 | 29 0d 0d 0d 31 30 20 52 |T(Number|)...10 R|
|00005270| 45 4d 20 53 54 4f 50 20 | 45 78 61 6d 70 6c 65 0d |EM STOP |Example.|
|00005280| 32 30 20 50 52 49 4e 54 | 20 22 46 69 72 73 74 20 |20 PRINT| "First |
|00005290| 50 72 6f 67 72 61 6d 20 | 53 65 63 74 69 6f 6e 22 |Program |Section"|
|000052a0| 0d 33 30 20 53 54 4f 50 | 0d 34 30 20 50 52 49 4e |.30 STOP|.40 PRIN|
|000052b0| 54 20 22 53 65 63 6f 6e | 64 20 50 72 6f 67 72 61 |T "Secon|d Progra|
|000052c0| 6d 20 53 65 63 74 69 6f | 6e 22 0d 0d 0d 31 30 20 |m Sectio|n"...10 |
|000052d0| 52 45 4d 20 53 54 52 43 | 4f 4d 50 41 52 45 20 45 |REM STRC|OMPARE E|
|000052e0| 78 61 6d 70 6c 65 0d 32 | 30 20 52 45 4d 20 55 73 |xample.2|0 REM Us|
|000052f0| 65 72 20 65 6e 74 65 72 | 73 20 74 77 6f 20 69 74 |er enter|s two it|
|00005300| 65 6d 73 20 77 68 69 63 | 68 20 61 72 65 20 66 6f |ems whic|h are fo|
|00005310| 72 63 65 64 20 69 6e 74 | 6f 20 73 74 72 69 6e 67 |rced int|o string|
|00005320| 73 2e 20 43 6f 6d 70 75 | 74 65 72 20 63 6f 6d 70 |s. Compu|ter comp|
|00005330| 61 72 65 73 20 74 68 65 | 6d 2e 0d 33 30 20 50 52 |ares the|m..30 PR|
|00005340| 49 4e 54 20 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |INT "Ple|ase ente|
|00005350| 72 20 69 74 65 6d 20 31 | 22 0d 34 30 20 49 4e 50 |r item 1|".40 INP|
|00005360| 55 54 20 53 74 72 69 6e | 67 31 24 0d 35 30 20 50 |UT Strin|g1$.50 P|
|00005370| 52 49 4e 54 20 22 50 6c | 65 61 73 65 20 65 6e 74 |RINT "Pl|ease ent|
|00005380| 65 72 20 69 74 65 6d 20 | 32 22 0d 36 30 20 49 4e |er item |2".60 IN|
|00005390| 50 55 54 20 53 74 72 69 | 6e 67 32 24 0d 37 30 20 |PUT Stri|ng2$.70 |
|000053a0| 52 65 73 75 6c 74 20 3d | 20 53 54 52 43 4f 4d 50 |Result =| STRCOMP|
|000053b0| 41 52 45 28 53 74 72 69 | 6e 67 31 24 2c 20 53 74 |ARE(Stri|ng1$, St|
|000053c0| 72 69 6e 67 32 24 29 0d | 38 30 20 49 46 20 52 65 |ring2$).|80 IF Re|
|000053d0| 73 75 6c 74 20 3d 20 30 | 20 54 48 45 4e 20 50 52 |sult = 0| THEN PR|
|000053e0| 49 4e 54 20 22 53 74 72 | 69 6e 67 73 20 61 72 65 |INT "Str|ings are|
|000053f0| 20 45 71 75 61 6c 22 0d | 39 30 20 49 46 20 52 65 | Equal".|90 IF Re|
|00005400| 73 75 6c 74 20 3e 20 30 | 20 54 48 45 4e 20 50 52 |sult > 0| THEN PR|
|00005410| 49 4e 54 20 22 53 65 63 | 6f 6e 64 20 73 74 72 69 |INT "Sec|ond stri|
|00005420| 6e 67 20 69 73 20 6c 61 | 72 67 65 72 22 0d 31 30 |ng is la|rger".10|
|00005430| 30 20 49 46 20 52 65 73 | 75 6c 74 20 3c 20 30 20 |0 IF Res|ult < 0 |
|00005440| 54 48 45 4e 20 50 52 49 | 4e 54 20 22 46 69 72 73 |THEN PRI|NT "Firs|
|00005450| 74 20 73 74 72 69 6e 67 | 20 69 73 20 6c 61 72 67 |t string| is larg|
|00005460| 65 72 22 0d 0d 0d 31 30 | 20 52 45 4d 20 53 54 52 |er"...10| REM STR|
|00005470| 45 51 55 41 4c 20 45 78 | 61 6d 70 6c 65 0d 32 30 |EQUAL Ex|ample.20|
|00005480| 20 52 45 4d 20 55 73 65 | 72 20 65 6e 74 65 72 73 | REM Use|r enters|
|00005490| 20 74 77 6f 20 69 74 65 | 6d 73 20 77 68 69 63 68 | two ite|ms which|
|000054a0| 20 61 72 65 20 66 6f 72 | 63 65 64 20 69 6e 74 6f | are for|ced into|
|000054b0| 20 73 74 72 69 6e 67 73 | 2e 20 43 6f 6d 70 75 74 | strings|. Comput|
|000054c0| 65 72 20 63 6f 6d 70 61 | 72 65 73 20 74 68 65 6d |er compa|res them|
|000054d0| 2e 0d 33 30 20 50 52 49 | 4e 54 20 22 50 6c 65 61 |..30 PRI|NT "Plea|
|000054e0| 73 65 20 65 6e 74 65 72 | 20 69 74 65 6d 20 31 22 |se enter| item 1"|
|000054f0| 0d 34 30 20 49 4e 50 55 | 54 20 53 74 72 69 6e 67 |.40 INPU|T String|
|00005500| 31 24 0d 35 30 20 50 52 | 49 4e 54 20 22 50 6c 65 |1$.50 PR|INT "Ple|
|00005510| 61 73 65 20 65 6e 74 65 | 72 20 69 74 65 6d 20 32 |ase ente|r item 2|
|00005520| 22 0d 36 30 20 49 4e 50 | 55 54 20 53 74 72 69 6e |".60 INP|UT Strin|
|00005530| 67 32 24 0d 37 30 20 52 | 65 73 75 6c 74 20 3d 20 |g2$.70 R|esult = |
|00005540| 53 54 52 45 51 55 41 4c | 28 53 74 72 69 6e 67 31 |STREQUAL|(String1|
|00005550| 24 2c 20 53 74 72 69 6e | 67 32 24 29 0d 38 30 20 |$, Strin|g2$).80 |
|00005560| 49 46 20 53 54 52 45 51 | 55 41 4c 28 53 74 72 69 |IF STREQ|UAL(Stri|
|00005570| 6e 67 31 24 2c 20 53 74 | 72 69 6e 67 32 24 29 20 |ng1$, St|ring2$) |
|00005580| 54 48 45 4e 20 50 52 49 | 4e 54 20 22 53 74 72 69 |THEN PRI|NT "Stri|
|00005590| 6e 67 73 20 61 72 65 20 | 45 71 75 61 6c 22 20 45 |ngs are |Equal" E|
|000055a0| 4c 53 45 20 50 52 49 4e | 54 20 22 53 74 72 69 6e |LSE PRIN|T "Strin|
|000055b0| 67 73 20 61 72 65 20 6e | 6f 74 20 45 71 75 61 6c |gs are n|ot Equal|
|000055c0| 22 0d 0d 0d 31 30 20 52 | 45 4d 20 53 54 52 49 4e |"...10 R|EM STRIN|
|000055d0| 47 45 52 20 45 78 61 6d | 70 6c 65 0d 32 30 20 52 |GER Exam|ple.20 R|
|000055e0| 45 4d 20 43 6f 6e 63 61 | 74 65 6e 61 74 65 73 20 |EM Conca|tenates |
|000055f0| 33 20 61 72 72 61 79 20 | 65 6c 65 6d 65 6e 74 73 |3 array |elements|
|00005600| 20 0d 33 30 20 44 49 4d | 20 41 72 72 61 79 5b 33 | .30 DIM| Array[3|
|00005610| 5d 0d 34 30 20 46 4f 52 | 20 69 20 3d 20 30 20 74 |].40 FOR| i = 0 t|
|00005620| 6f 20 32 0d 35 30 20 50 | 52 49 4e 54 20 22 50 6c |o 2.50 P|RINT "Pl|
|00005630| 65 61 73 65 20 65 6e 74 | 65 72 20 73 6f 6d 65 74 |ease ent|er somet|
|00005640| 68 69 6e 67 22 0d 36 30 | 20 49 4e 50 55 54 20 45 |hing".60| INPUT E|
|00005650| 6c 65 6d 65 6e 74 0d 37 | 30 20 41 72 72 61 79 5b |lement.7|0 Array[|
|00005660| 69 5d 20 3d 20 45 6c 65 | 6d 65 6e 74 0d 38 30 20 |i] = Ele|ment.80 |
|00005670| 4e 45 58 54 20 69 0d 39 | 30 20 50 52 49 4e 54 20 |NEXT i.9|0 PRINT |
|00005680| 22 54 68 65 20 72 65 73 | 75 6c 74 20 69 73 2e 2e |"The res|ult is..|
|00005690| 2e 22 0d 31 30 30 20 50 | 52 49 4e 54 20 53 54 52 |.".100 P|RINT STR|
|000056a0| 49 4e 47 45 52 28 41 72 | 72 61 79 29 0d 0d 31 30 |INGER(Ar|ray)..10|
|000056b0| 20 52 45 4d 20 53 54 52 | 49 4e 47 54 4f 4e 55 4d | REM STR|INGTONUM|
|000056c0| 42 45 52 20 45 78 61 6d | 70 6c 65 0d 32 30 20 52 |BER Exam|ple.20 R|
|000056d0| 45 4d 20 50 6c 61 63 65 | 73 20 74 77 6f 20 22 73 |EM Place|s two "s|
|000056e0| 74 72 69 6e 67 22 20 6e | 75 6d 62 65 72 73 20 74 |tring" n|umbers t|
|000056f0| 6f 67 65 74 68 65 72 20 | 61 6e 64 20 61 64 64 73 |ogether |and adds|
|00005700| 20 35 20 74 6f 20 74 68 | 61 74 20 6e 75 6d 62 65 | 5 to th|at numbe|
|00005710| 72 2e 0d 33 30 20 50 52 | 49 4e 54 20 22 50 6c 65 |r..30 PR|INT "Ple|
|00005720| 61 73 65 20 65 6e 74 65 | 72 20 32 20 6e 75 6d 62 |ase ente|r 2 numb|
|00005730| 65 72 73 22 0d 34 30 20 | 49 4e 50 55 54 20 4e 75 |ers".40 |INPUT Nu|
|00005740| 6d 62 65 72 31 24 2c 4e | 75 6d 62 65 72 32 24 0d |mber1$,N|umber2$.|
|00005750| 35 30 20 4e 65 77 4e 75 | 6d 62 65 72 20 3d 20 4e |50 NewNu|mber = N|
|00005760| 75 6d 62 65 72 31 24 20 | 26 20 4e 75 6d 62 65 72 |umber1$ |& Number|
|00005770| 32 24 0d 36 30 20 50 52 | 49 4e 54 20 22 54 68 65 |2$.60 PR|INT "The|
|00005780| 20 6e 75 6d 62 65 72 73 | 20 63 6f 6e 63 61 74 65 | numbers| concate|
|00005790| 6e 61 74 65 64 20 61 72 | 65 2e 2e 2e 20 22 20 3b |nated ar|e... " ;|
|000057a0| 20 4e 65 77 4e 75 6d 62 | 65 72 0d 37 30 20 50 52 | NewNumb|er.70 PR|
|000057b0| 49 4e 54 20 22 54 68 65 | 20 4e 75 6d 62 65 72 73 |INT "The| Numbers|
|000057c0| 20 77 69 74 68 20 35 20 | 61 64 64 65 64 20 61 72 | with 5 |added ar|
|000057d0| 65 2e 2e 2e 20 22 20 3b | 20 53 54 52 49 4e 47 54 |e... " ;| STRINGT|
|000057e0| 4f 4e 55 4d 42 45 52 28 | 4e 65 77 4e 75 6d 62 65 |ONUMBER(|NewNumbe|
|000057f0| 72 29 2b 35 0d 0d 0d 31 | 30 20 52 45 4d 20 53 54 |r)+5...1|0 REM ST|
|00005800| 52 4c 45 4e 20 45 78 61 | 6d 70 6c 65 0d 32 30 20 |RLEN Exa|mple.20 |
|00005810| 50 52 49 4e 54 20 22 45 | 6e 74 65 72 20 61 20 53 |PRINT "E|nter a S|
|00005820| 74 72 69 6e 67 22 0d 33 | 30 20 49 4e 50 55 54 20 |tring".3|0 INPUT |
|00005830| 73 74 72 69 6e 67 24 0d | 34 30 20 50 52 49 4e 54 |string$.|40 PRINT|
|00005840| 20 22 54 68 65 72 65 20 | 61 72 65 20 22 20 3b 20 | "There |are " ; |
|00005850| 53 54 52 4c 45 4e 28 53 | 74 72 69 6e 67 24 29 20 |STRLEN(S|tring$) |
|00005860| 3b 20 22 20 63 68 61 72 | 61 63 74 65 72 73 20 69 |; " char|acters i|
|00005870| 6e 20 74 68 65 20 73 74 | 72 69 6e 67 22 0d 0d 0d |n the st|ring"...|
|00005880| 31 30 20 52 45 4d 20 53 | 54 52 50 4f 53 20 45 78 |10 REM S|TRPOS Ex|
|00005890| 61 6d 70 6c 65 0d 32 30 | 20 52 45 4d 20 4c 6f 6f |ample.20| REM Loo|
|000058a0| 6b 73 20 66 6f 72 20 61 | 20 73 75 62 73 74 72 69 |ks for a| substri|
|000058b0| 6e 67 20 69 6e 20 61 20 | 75 73 65 72 20 64 65 66 |ng in a |user def|
|000058c0| 69 6e 65 64 20 73 74 72 | 69 6e 67 2e 0d 33 30 20 |ined str|ing..30 |
|000058d0| 50 52 49 4e 54 20 22 50 | 6c 65 61 73 65 20 65 6e |PRINT "P|lease en|
|000058e0| 74 65 72 20 61 20 73 74 | 72 69 6e 67 22 0d 34 30 |ter a st|ring".40|
|000058f0| 20 49 4e 50 55 54 20 53 | 74 72 69 6e 67 0d 35 30 | INPUT S|tring.50|
|00005900| 20 50 52 49 4e 54 20 22 | 50 6c 65 61 73 65 20 65 | PRINT "|Please e|
|00005910| 6e 74 65 72 20 61 20 73 | 74 72 69 6e 67 20 74 6f |nter a s|tring to|
|00005920| 20 6c 6f 6f 6b 20 66 6f | 72 22 0d 36 30 20 49 4e | look fo|r".60 IN|
|00005930| 50 55 54 20 53 75 62 73 | 74 72 69 6e 67 0d 37 30 |PUT Subs|tring.70|
|00005940| 20 52 65 73 75 6c 74 20 | 3d 20 53 54 52 50 4f 53 | Result |= STRPOS|
|00005950| 28 53 74 72 69 6e 67 2c | 53 75 62 73 74 72 69 6e |(String,|Substrin|
|00005960| 67 2c 30 29 0d 38 30 20 | 49 46 20 52 65 73 75 6c |g,0).80 |IF Resul|
|00005970| 74 20 3d 20 4e 49 4c 20 | 54 48 45 4e 20 50 52 49 |t = NIL |THEN PRI|
|00005980| 4e 54 20 22 53 75 62 73 | 74 72 69 6e 67 20 6e 6f |NT "Subs|tring no|
|00005990| 74 20 66 6f 75 6e 64 22 | 20 45 4c 53 45 20 50 52 |t found"| ELSE PR|
|000059a0| 49 4e 54 20 22 53 75 62 | 73 74 72 69 6e 67 20 69 |INT "Sub|string i|
|000059b0| 73 20 61 74 20 63 68 61 | 72 61 63 74 65 72 20 22 |s at cha|racter "|
|000059c0| 20 3b 20 52 65 73 75 6c | 74 0d 0d 0d 31 30 20 52 | ; Resul|t...10 R|
|000059d0| 45 4d 20 53 55 42 53 54 | 52 20 45 78 61 6d 70 6c |EM SUBST|R Exampl|
|000059e0| 65 0d 32 30 20 52 45 4d | 20 43 72 65 61 74 65 73 |e.20 REM| Creates|
|000059f0| 20 61 20 73 75 62 73 74 | 72 69 6e 67 20 66 72 6f | a subst|ring fro|
|00005a00| 6d 20 74 68 65 20 66 69 | 72 73 74 20 35 20 63 68 |m the fi|rst 5 ch|
|00005a10| 61 72 61 63 74 65 72 73 | 20 6f 66 20 61 20 73 74 |aracters| of a st|
|00005a20| 72 69 6e 67 2e 0d 33 30 | 20 50 52 49 4e 54 20 22 |ring..30| PRINT "|
|00005a30| 50 6c 65 61 73 65 20 65 | 6e 74 65 72 20 61 20 73 |Please e|nter a s|
|00005a40| 74 72 69 6e 67 22 0d 34 | 30 20 49 4e 50 55 54 20 |tring".4|0 INPUT |
|00005a50| 53 74 72 69 6e 67 0d 35 | 30 20 52 65 73 75 6c 74 |String.5|0 Result|
|00005a60| 20 3d 20 53 55 42 53 54 | 52 28 53 74 72 69 6e 67 | = SUBST|R(String|
|00005a70| 2c 20 30 2c 20 34 29 0d | 36 30 20 50 52 49 4e 54 |, 0, 4).|60 PRINT|
|00005a80| 20 22 54 68 65 20 6e 65 | 77 20 73 75 62 73 74 72 | "The ne|w substr|
|00005a90| 69 6e 67 20 69 73 20 22 | 20 3b 20 52 65 73 75 6c |ing is "| ; Resul|
|00005aa0| 74 0d 0d 0d 31 30 20 52 | 45 4d 20 54 41 4e 20 45 |t...10 R|EM TAN E|
|00005ab0| 78 61 6d 70 6c 65 0d 32 | 30 20 50 52 49 4e 54 20 |xample.2|0 PRINT |
|00005ac0| 22 50 6c 65 61 73 65 20 | 65 6e 74 65 72 20 61 6e |"Please |enter an|
|00005ad0| 20 61 6e 67 6c 65 22 0d | 33 30 20 49 4e 50 55 54 | angle".|30 INPUT|
|00005ae0| 20 41 6e 67 6c 65 0d 34 | 30 20 50 52 49 4e 54 20 | Angle.4|0 PRINT |
|00005af0| 22 54 68 65 20 74 61 6e | 67 65 6e 74 20 6f 66 20 |"The tan|gent of |
|00005b00| 74 68 65 20 61 6e 67 6c | 65 20 69 73 20 3d 20 22 |the angl|e is = "|
|00005b10| 20 3b 20 54 41 4e 28 41 | 6e 67 6c 65 29 20 3b 20 | ; TAN(A|ngle) ; |
|00005b20| 22 20 72 61 64 69 61 6e | 73 22 0d 0d 0d 31 30 20 |" radian|s"...10 |
|00005b30| 52 45 4d 20 54 45 58 54 | 20 45 78 61 6d 70 6c 65 |REM TEXT| Example|
|00005b40| 0d 32 30 20 77 31 53 70 | 65 63 20 3d 20 7b 74 65 |.20 w1Sp|ec = {te|
|00005b50| 78 74 3a 20 22 49 6e 70 | 75 74 2e 2e 2e 22 7d 0d |xt: "Inp|ut..."}.|
|00005b60| 33 30 20 57 49 4e 44 4f | 57 20 77 31 2c 20 77 31 |30 WINDO|W w1, w1|
|00005b70| 53 70 65 63 2c 20 22 54 | 45 58 54 22 0d 34 30 20 |Spec, "T|EXT".40 |
|00005b80| 53 48 4f 57 20 77 31 0d | 0d 0d 31 30 20 52 45 4d |SHOW w1.|..10 REM|
|00005b90| 20 54 49 43 4b 53 20 45 | 78 61 6d 70 6c 65 0d 32 | TICKS E|xample.2|
|00005ba0| 30 20 4f 6c 64 74 69 6d | 65 20 3d 20 54 49 43 4b |0 Oldtim|e = TICK|
|00005bb0| 53 28 29 0d 33 30 20 50 | 52 49 4e 54 20 22 54 61 |S().30 P|RINT "Ta|
|00005bc0| 70 20 61 6e 79 20 6b 65 | 79 2c 20 74 68 65 6e 20 |p any ke|y, then |
|00005bd0| 74 68 65 20 65 6e 74 65 | 72 20 6b 65 79 20 77 68 |the ente|r key wh|
|00005be0| 65 6e 20 72 65 61 64 79 | 22 0d 34 30 20 49 4e 50 |en ready|".40 INP|
|00005bf0| 55 54 20 41 24 0d 35 30 | 20 4e 65 77 74 69 6d 65 |UT A$.50| Newtime|
|00005c00| 20 3d 20 54 49 43 4b 53 | 28 29 0d 36 30 20 50 52 | = TICKS|().60 PR|
|00005c10| 49 4e 54 20 28 4e 65 77 | 74 69 6d 65 2d 4f 6c 64 |INT (New|time-Old|
|00005c20| 74 69 6d 65 29 20 2f 20 | 36 30 20 3b 20 22 20 53 |time) / |60 ; " S|
|00005c30| 65 63 6f 6e 64 73 20 70 | 61 73 73 65 64 22 0d 0d |econds p|assed"..|
|00005c40| 0d 31 30 20 52 45 4d 20 | 54 49 4d 45 20 45 78 61 |.10 REM |TIME Exa|
|00005c50| 6d 70 6c 65 0d 32 30 20 | 50 52 49 4e 54 20 22 54 |mple.20 |PRINT "T|
|00005c60| 68 65 20 4e 75 6d 62 65 | 72 20 6f 66 20 4d 69 6e |he Numbe|r of Min|
|00005c70| 75 74 65 73 20 70 61 73 | 73 65 64 20 73 69 6e 63 |utes pas|sed sinc|
|00005c80| 65 20 30 31 2f 30 31 2f | 30 34 20 69 73 2e 2e 2e |e 01/01/|04 is...|
|00005c90| 22 20 3b 20 54 49 4d 45 | 28 29 0d 33 30 20 50 52 |" ; TIME|().30 PR|
|00005ca0| 49 4e 54 20 22 54 68 65 | 20 43 75 72 72 65 6e 74 |INT "The| Current|
|00005cb0| 20 44 61 74 65 20 61 6e | 64 20 54 69 6d 65 20 69 | Date an|d Time i|
|00005cc0| 73 20 22 20 3b 20 44 41 | 54 45 4e 54 49 4d 45 28 |s " ; DA|TENTIME(|
|00005cd0| 54 49 4d 45 28 29 29 0d | 0d 0d 31 30 20 52 45 4d |TIME()).|..10 REM|
|00005ce0| 20 54 52 41 43 45 20 45 | 78 61 6d 70 6c 65 0d 32 | TRACE E|xample.2|
|00005cf0| 30 20 50 52 49 4e 54 20 | 22 54 68 69 73 20 69 73 |0 PRINT |"This is|
|00005d00| 20 61 6e 20 45 58 41 4d | 50 4c 45 22 0d 33 30 20 | an EXAM|PLE".30 |
|00005d10| 50 52 49 4e 54 20 22 4c | 6c 61 6d 61 73 22 0d 34 |PRINT "L|lamas".4|
|00005d20| 30 20 54 52 41 43 45 20 | 4f 4e 0d 35 30 20 46 4f |0 TRACE |ON.50 FO|
|00005d30| 52 20 69 20 3d 20 31 20 | 74 6f 20 33 0d 36 30 20 |R i = 1 |to 3.60 |
|00005d40| 50 52 49 4e 54 20 69 0d | 37 30 20 4e 45 58 54 20 |PRINT i.|70 NEXT |
|00005d50| 69 0d 38 30 20 54 52 41 | 43 45 20 4f 46 46 0d 39 |i.80 TRA|CE OFF.9|
|00005d60| 30 20 50 52 49 4e 54 20 | 22 45 6e 64 20 6f 66 20 |0 PRINT |"End of |
|00005d70| 70 72 6f 67 72 61 6d 20 | 72 65 61 63 68 65 64 2e |program |reached.|
|00005d80| 22 0d 0d 0d 31 30 20 52 | 45 4d 20 57 41 49 54 20 |"...10 R|EM WAIT |
|00005d90| 45 78 61 6d 70 6c 65 0d | 31 31 20 66 3d 7b 67 6f |Example.|11 f={go|
|00005da0| 74 6f 3a 31 30 30 30 7d | 0d 31 32 20 66 2e 76 69 |to:1000}|.12 f.vi|
|00005db0| 65 77 62 6f 75 6e 64 73 | 3d 7b 6c 65 66 74 3a 31 |ewbounds|={left:1|
|00005dc0| 30 30 2c 20 72 69 67 68 | 74 3a 31 31 30 2c 20 74 |00, righ|t:110, t|
|00005dd0| 6f 70 3a 20 31 30 30 2c | 20 62 6f 74 74 6f 6d 3a |op: 100,| bottom:|
|00005de0| 20 31 31 30 7d 0d 31 35 | 20 63 6c 73 0d 32 30 20 | 110}.15| cls.20 |
|00005df0| 77 69 6e 64 6f 77 20 77 | 31 2c 66 0d 33 30 20 73 |window w|1,f.30 s|
|00005e00| 68 6f 77 20 77 31 0d 34 | 30 20 66 6f 72 20 69 3d |how w1.4|0 for i=|
|00005e10| 31 20 74 6f 20 33 0d 34 | 35 20 50 52 49 4e 54 20 |1 to 3.4|5 PRINT |
|00005e20| 69 0d 35 30 20 77 61 69 | 74 0d 37 30 20 4e 45 58 |i.50 wai|t.70 NEX|
|00005e30| 54 20 69 0d 38 30 20 73 | 74 6f 70 0d 31 30 30 30 |T i.80 s|top.1000|
|00005e40| 20 72 65 6d 20 74 6f 67 | 67 6c 65 20 63 68 65 63 | rem tog|gle chec|
|00005e50| 6b 62 6f 78 0d 31 30 31 | 30 20 63 62 6f 78 3d 6e |kbox.101|0 cbox=n|
|00005e60| 6f 74 20 63 62 6f 78 0d | 31 30 32 30 20 69 66 20 |ot cbox.|1020 if |
|00005e70| 63 62 6f 78 20 74 68 65 | 6e 20 77 70 72 69 6e 74 |cbox the|n wprint|
|00005e80| 20 77 31 2c 63 68 72 28 | 38 37 33 30 29 20 65 6c | w1,chr(|8730) el|
|00005e90| 73 65 20 77 70 72 69 6e | 74 20 77 31 2c 22 22 0d |se wprin|t w1,"".|
|00005ea0| 0d 0d 31 30 20 52 45 4d | 20 57 44 52 41 57 20 45 |..10 REM| WDRAW E|
|00005eb0| 78 61 6d 70 6c 65 0d 32 | 30 20 57 31 53 70 65 63 |xample.2|0 W1Spec|
|00005ec0| 3d 7b 76 69 65 77 42 6f | 75 6e 64 73 3a 20 7b 6c |={viewBo|unds: {l|
|00005ed0| 65 66 74 3a 31 30 2c 20 | 72 69 67 68 74 3a 20 31 |eft:10, |right: 1|
|00005ee0| 35 30 2c 20 74 6f 70 3a | 20 31 30 2c 20 62 6f 74 |50, top:| 10, bot|
|00005ef0| 74 6f 6d 3a 20 37 35 7d | 7d 0d 35 30 20 57 49 4e |tom: 75}|}.50 WIN|
|00005f00| 44 4f 57 20 57 69 6e 4e | 75 6d 2c 20 57 31 53 70 |DOW WinN|um, W1Sp|
|00005f10| 65 63 0d 36 30 20 53 48 | 4f 57 20 57 69 6e 4e 75 |ec.60 SH|OW WinNu|
|00005f20| 6d 0d 37 30 20 57 44 52 | 41 57 20 57 69 6e 4e 75 |m.70 WDR|AW WinNu|
|00005f30| 6d 2c 20 5b 4d 41 4b 45 | 4c 49 4e 45 28 35 35 2c |m, [MAKE|LINE(55,|
|00005f40| 31 35 2c 37 35 2c 34 35 | 29 2c 20 4d 41 4b 45 4f |15,75,45|), MAKEO|
|00005f50| 56 41 4c 28 31 30 2c 31 | 30 2c 34 30 2c 34 30 29 |VAL(10,1|0,40,40)|
|00005f60| 5d 2c 20 7b 70 65 6e 53 | 69 7a 65 3a 32 2c 20 70 |], {penS|ize:2, p|
|00005f70| 65 6e 50 61 74 74 65 72 | 6e 3a 76 66 47 72 65 79 |enPatter|n:vfGrey|
|00005f80| 2c 20 66 69 6c 6c 50 61 | 74 74 65 72 6e 3a 76 66 |, fillPa|ttern:vf|
|00005f90| 42 6c 61 63 6b 7d 0d 0d | 0d 31 30 20 52 45 4d 20 |Black}..|.10 REM |
|00005fa0| 57 49 44 47 45 54 20 45 | 78 61 6d 70 6c 65 0d 32 |WIDGET E|xample.2|
|00005fb0| 30 20 4f 50 45 4e 20 65 | 78 61 6d 70 6c 65 2c 20 |0 OPEN e|xample, |
|00005fc0| 22 45 78 61 6d 70 6c 65 | 46 69 6c 65 22 2c 20 4e |"Example|File", N|
|00005fd0| 61 6d 65 0d 33 30 20 49 | 46 20 46 53 54 41 54 20 |ame.30 I|F FSTAT |
|00005fe0| 3c 3e 20 30 20 54 48 45 | 4e 20 43 52 45 41 54 45 |<> 0 THE|N CREATE|
|00005ff0| 20 65 78 61 6d 70 6c 65 | 2c 20 22 45 78 61 6d 70 | example|, "Examp|
|00006000| 6c 65 46 69 6c 65 22 2c | 20 4e 61 6d 65 0d 34 30 |leFile",| Name.40|
|00006010| 20 62 75 74 74 6f 6e 46 | 6f 6e 74 20 3d 20 7b 66 | buttonF|ont = {f|
|00006020| 61 6d 69 6c 79 3a 20 27 | 67 65 6e 65 76 61 2c 20 |amily: '|geneva, |
|00006030| 66 61 63 65 3a 20 31 2c | 20 73 69 7a 65 3a 31 32 |face: 1,| size:12|
|00006040| 7d 0d 37 30 20 73 70 65 | 63 20 3d 20 7b 74 65 78 |}.70 spe|c = {tex|
|00006050| 74 3a 20 22 53 61 6d 70 | 6c 65 20 41 70 70 22 2c |t: "Samp|le App",|
|00006060| 20 76 69 65 77 42 6f 75 | 6e 64 73 3a 7b 74 6f 70 | viewBou|nds:{top|
|00006070| 3a 31 2c 20 62 6f 74 74 | 6f 6d 3a 20 33 31 38 2c |:1, bott|om: 318,|
|00006080| 20 6c 65 66 74 3a 20 31 | 2c 20 72 69 67 68 74 3a | left: 1|, right:|
|00006090| 20 32 33 39 7d 2c 20 76 | 69 65 77 46 6f 6e 74 3a | 239}, v|iewFont:|
|000060a0| 20 7b 66 61 6d 69 6c 79 | 3a 20 27 67 65 6e 65 76 | {family|: 'genev|
|000060b0| 61 2c 20 66 61 63 65 3a | 31 2c 20 73 69 7a 65 3a |a, face:|1, size:|
|000060c0| 31 34 7d 2c 20 76 69 65 | 77 4a 75 73 74 69 66 79 |14}, vie|wJustify|
|000060d0| 3a 20 33 7d 0d 38 30 20 | 57 49 4e 44 4f 57 20 4d |: 3}.80 |WINDOW M|
|000060e0| 61 69 6e 57 69 6e 64 6f | 77 2c 20 73 70 65 63 0d |ainWindo|w, spec.|
|000060f0| 39 30 20 73 70 65 63 20 | 3d 20 7b 47 4f 54 4f 3a |90 spec |= {GOTO:|
|00006100| 20 36 31 30 2c 20 74 65 | 78 74 3a 20 22 58 22 2c | 610, te|xt: "X",|
|00006110| 20 76 69 65 77 42 6f 75 | 6e 64 73 3a 20 7b 74 6f | viewBou|nds: {to|
|00006120| 70 3a 33 30 30 2c 20 62 | 6f 74 74 6f 6d 3a 20 33 |p:300, b|ottom: 3|
|00006130| 31 34 2c 20 6c 65 66 74 | 3a 20 32 32 31 2c 20 72 |14, left|: 221, r|
|00006140| 69 67 68 74 3a 20 32 33 | 37 7d 2c 20 76 69 65 77 |ight: 23|7}, view|
|00006150| 46 6f 6e 74 3a 20 62 75 | 74 74 6f 6e 46 6f 6e 74 |Font: bu|ttonFont|
|00006160| 2c 20 76 69 65 77 4a 75 | 73 74 69 66 79 3a 20 32 |, viewJu|stify: 2|
|00006170| 2c 20 76 69 65 77 46 6f | 72 6d 61 74 3a 20 34 2a |, viewFo|rmat: 4*|
|00006180| 76 66 52 6f 75 6e 64 20 | 2b 20 32 2a 76 66 50 65 |vfRound |+ 2*vfPe|
|00006190| 6e 20 2b 20 76 66 46 72 | 61 6d 65 42 6c 61 63 6b |n + vfFr|ameBlack|
|000061a0| 7d 0d 31 30 30 20 57 49 | 4e 44 4f 57 20 4d 61 69 |}.100 WI|NDOW Mai|
|000061b0| 6e 51 75 69 74 2c 20 73 | 70 65 63 0d 31 31 30 20 |nQuit, s|pec.110 |
|000061c0| 53 48 4f 57 20 4d 61 69 | 6e 57 69 6e 64 6f 77 2c |SHOW Mai|nWindow,|
|000061d0| 20 4d 61 69 6e 51 75 69 | 74 0d 31 32 30 20 57 44 | MainQui|t.120 WD|
|000061e0| 52 41 57 20 4d 61 69 6e | 57 69 6e 64 6f 77 2c 20 |RAW Main|Window, |
|000061f0| 4d 41 4b 45 4c 49 4e 45 | 28 31 30 2c 20 31 38 2c |MAKELINE|(10, 18,|
|00006200| 20 32 33 30 2c 20 31 38 | 29 2c 20 7b 70 65 6e 53 | 230, 18|), {penS|
|00006210| 69 7a 65 3a 20 32 7d 0d | 31 33 30 20 52 45 4d 20 |ize: 2}.|130 REM |
|00006220| 63 72 65 61 74 65 20 61 | 6e 64 20 64 69 73 70 6c |create a|nd displ|
|00006230| 61 79 20 62 6c 61 6e 6b | 20 66 6f 72 6d 0d 31 35 |ay blank| form.15|
|00006240| 30 20 73 70 65 63 20 3a | 3d 20 7b 47 4f 54 4f 3a |0 spec :|= {GOTO:|
|00006250| 20 33 36 30 2c 20 74 65 | 78 74 3a 20 22 53 65 61 | 360, te|xt: "Sea|
|00006260| 72 63 68 22 2c 20 76 69 | 65 77 42 6f 75 6e 64 73 |rch", vi|ewBounds|
|00006270| 3a 20 7b 74 6f 70 3a 20 | 33 30 30 2c 20 62 6f 74 |: {top: |300, bot|
|00006280| 74 6f 6d 3a 20 33 31 34 | 2c 20 6c 65 66 74 3a 20 |tom: 314|, left: |
|00006290| 36 2c 20 72 69 67 68 74 | 3a 20 36 36 7d 2c 20 76 |6, right|: 66}, v|
|000062a0| 69 65 77 46 6f 6e 74 3a | 20 62 75 74 74 6f 6e 46 |iewFont:| buttonF|
|000062b0| 6f 6e 74 2c 20 76 69 65 | 77 4a 75 73 74 69 66 79 |ont, vie|wJustify|
|000062c0| 3a 20 32 2c 20 76 69 65 | 77 46 6f 72 6d 61 74 3a |: 2, vie|wFormat:|
|000062d0| 20 34 2a 76 66 52 6f 75 | 6e 64 2b 32 2a 76 66 50 | 4*vfRou|nd+2*vfP|
|000062e0| 65 6e 2b 76 66 46 72 61 | 6d 65 42 6c 61 63 6b 7d |en+vfFra|meBlack}|
|000062f0| 0d 31 36 30 20 57 49 4e | 44 4f 57 20 53 65 61 72 |.160 WIN|DOW Sear|
|00006300| 63 68 42 74 6e 2c 20 73 | 70 65 63 0d 31 37 30 20 |chBtn, s|pec.170 |
|00006310| 73 70 65 63 20 3a 3d 20 | 7b 47 4f 54 4f 3a 20 34 |spec := |{GOTO: 4|
|00006320| 39 30 2c 20 74 65 78 74 | 3a 20 22 53 61 76 65 22 |90, text|: "Save"|
|00006330| 2c 20 76 69 65 77 42 6f | 75 6e 64 73 3a 20 7b 74 |, viewBo|unds: {t|
|00006340| 6f 70 3a 20 33 30 30 2c | 20 62 6f 74 74 6f 6d 3a |op: 300,| bottom:|
|00006350| 20 33 31 34 2c 20 6c 65 | 66 74 3a 20 37 30 2c 20 | 314, le|ft: 70, |
|00006360| 72 69 67 68 74 3a 20 31 | 33 30 7d 2c 20 76 69 65 |right: 1|30}, vie|
|00006370| 77 46 6f 6e 74 3a 20 62 | 75 74 74 6f 6e 46 6f 6e |wFont: b|uttonFon|
|00006380| 74 2c 20 76 69 65 77 4a | 75 73 74 69 66 79 3a 20 |t, viewJ|ustify: |
|00006390| 32 2c 20 76 69 65 77 46 | 6f 72 6d 61 74 3a 20 34 |2, viewF|ormat: 4|
|000063a0| 2a 76 66 52 6f 75 6e 64 | 2b 32 2a 76 66 50 65 6e |*vfRound|+2*vfPen|
|000063b0| 2b 76 66 46 72 61 6d 65 | 42 6c 61 63 6b 7d 0d 31 |+vfFrame|Black}.1|
|000063c0| 38 30 20 57 49 4e 44 4f | 57 20 53 61 76 65 42 74 |80 WINDO|W SaveBt|
|000063d0| 6e 2c 20 73 70 65 63 0d | 31 39 30 20 73 70 65 63 |n, spec.|190 spec|
|000063e0| 20 3a 3d 20 7b 47 4f 54 | 4f 3a 20 35 34 30 2c 20 | := {GOT|O: 540, |
|000063f0| 74 65 78 74 3a 20 22 4e | 65 77 22 2c 20 76 69 65 |text: "N|ew", vie|
+--------+-------------------------+-------------------------+--------+--------+